programming-examples/perl/Statement/Using variable defined outside in foreach loop.pl

#!/usr/bin/perl -w

use strict;

my @array = (1, 3, 5, 7, 9);
my $i = "Hello there";
foreach $i (@array) {
    print "This element: $i\n";
}
print "All done: $i\n";