Select Code to Download

my @flist = ();

...
{
    print $f->(2), "\n";
}

flist = []

...

for f in flist:
    print f(2)