lhp@nereida:~/Lperl/src$ cat -n foreach1.pl
1 #!/usr/bin/perl -w
2 use strict;
3
4 my @list = 1..10;
5 foreach my $n (@list) {
6 $n *= 2;
7 }
8 print "@list\n";
su ejecución produce la siguiente salida:
lhp@nereida:~/Lperl/src$ foreach1.pl 2 4 6 8 10 12 14 16 18 20
Casiano Rodríguez León