Select Code to Download

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

foreach my $f (@flist)
{
    print $f->(2), "\n";
}