#!perl
use 5.012; # strict, //
use warnings;

{
    my $i = 1;
    my $j = 2;
    sub get {
        $i + $j;
    }
}
get();