Help for this page
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 ( ... ) { ... }