Help for this page
my @subs; for(my $i=1;$i<=5;$i++){ ... }; } $subs[3]->();
my @subs; for(my $i=1;$i<=5;$i++){ ... EOE } $subs[3]->();