my $var;

for $var (...) {
}

##</code><code>##

for my $var (...) {
}

##</code><code>##

use strict;
use warnings;

my @array = (1 .. 10);

for my $var (@array) {
    $var *= 10;
}

print "@array";