#!/usr/bin/perl

sub print_something {
    my $x = shift;

    sub something {
        return $x; 
    }

    my $result = something();
    print "$x = $result\n";
}

print_something(1);
print_something(2);
__END__
1 = 1
2 = 1