[jasper@carabosse spamjab]$ perl -le 'use strict; my$x=99; my $x = $_ for 1..3; print $x'

[jasper@carabosse spamjab]$ perl -le 'use strict; my$x=99; for (1..3){my $x=$_}; print $x'
99
[jasper@carabosse spamjab]$