use strict;
use warnings;

my $variable = 1;
print $variable;

subroutine();

sub subroutine {
    my $variable = 2;
    print $variable;
}
#Output:
#12