Select Code to Download

use strict;
use warnings;
...
    print $p->{2};
    $p->{2} = 'd';
}

use strict;
use warnings;
...
    my %h = %{shift()};
    print $h{2};
}