Using variable defined outside in foreach loop
#!/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";