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

##</code><code>##

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