Select Code to Download

#!/usr/bin/perl

...
    local $hash{foo} = 'bar';
    local @array;
}

#!/usr/bin/perl

...
    local @array;
    print Dumper(\%main::);
}