my $i;
foreach $i (0 .. 2) {
  push(@flist, sub {$i * $_[0]});
}