sub outer {
    my ($x) = @_;
    sub inner {
        say $x;
    }
    inner();
}          # Warns Variable "$x" will not stay shared

outer(4);  # Prints 4
outer(6);  # Prints 4!!!