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