#!/usr/bin/perl -w
                                                                                
# Strict
use strict;
use warnings;
                                                                                
                                                                                
my $x = 15;   # This is the outer $x
                                                                                
{
    my $x = $x;  # This is the inner $x
    print "Location 1, x = $x\n";
    $x += 7;
    print "Location 2, x = $x\n";
}
                                                                                
print "Location 3, x = $x\n";

##</code><code>##

Location 1, x = 15
Location 2, x = 22
Location 3, x = 15