use strict;
use warnings;

my @outer = (qw| one two three |);

print "First\n";
foreach my $o (@outer) {
    print $o, "\n";
}

print "Second\n";
foreach my $o (@outer) {
    $o .= 'loop';
    print $o, "\n";
}

#print $o, "\n"; # Comment out compile time error
print "Third\n";
foreach my $o (@outer) {
    print $o, "\n";
}