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