my @subs;
my $i;
for($i=1;$i<=5;$i++){
        push @subs, sub {
                print "i=$i\n";
        };
}
$i = 100;
$subs[3]->();