$ perl -e '
> use strict;
> use warnings;
> use v5.10;
> { my $var = 42;
>      sub somefunc
>      {
>         $var + shift;
>      }
> }
> say somefunc(5);
> say somefunc(10);
> '
47
52