@array = 1 .. 10; for (@array) { my $var = $_; $var++; print "$var\n"; } print "@array\n";