Select Code to Download

sub my_func {
    my ( $self, $ptr_array, $value ) = @_;
...
    my ( $ptr_array, $value ) = @_;
    # ...
}

{
    my ( $ptr_array, $value );
...
    sub look_left { ... }
    sub look_right { ... }
}