use strict;
use warnings;

Outer(1);
Inner();
Outer(1);

sub Outer {
    my ($param) = @_;

    sub Inner {
        print "In inner: $param\n";
        ++$param;
    }

    Inner();
}