use strict; 
(my $x = 15) && $x;

##</code><code>##

use strict; 
(my $x = 15);$x;

##</code><code>##

my $x = 1;
for (1 .. 5) {
    my $x = $x;
    $x += $_;
    print $x;
}
print $x;