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

##</code><code>##

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