Select Code to Download

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

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