Select Code to Download

use strict;
use warnings;
...
    }
    print qq{outside foreach: $i\n};
}

outside foreach: xyz
 inside foreach: 1
...
 inside foreach: 4
 inside foreach: 5
outside foreach: xyz

foreach my $i ( ... )
{
    ...
}