sub outer_1 {
        local ($x) = 1;
        return (inner ($_[0]));
    }
    
    sub outer_2 {
        local ($x) = 2;
        return (innner ($_[0]));
    }
    
    sub inner {
        my $y = shift;
        return ($x + $y);
    }