foreach and array : Foreach Statement Perl

 

#!/usr/bin/perl
$str="hello";
@numbers = (1, 3, 5, 7, 9);
print "$str is initially $str.n";
print "@numbers is initially @numbers.n";
foreach $str (@numbers ){
     $str+=5;
     print "$strn";
}
print "Out of the loop--$str is $str.n";
print "Out of the loop--The array @numbers is now @numbers.n";