12 lines
320 B
Perl
12 lines
320 B
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 "$str\n";
|
||
|
|
}
|
||
|
|
print "Out of the loop--\$str is $str.\n";
|
||
|
|
print "Out of the loop--The array \@numbers is now @numbers.\n";
|