Select Code to Download

#!/usr/bin/perl

...
}
print Dumper $h;

pop @{$h->{'pop'}}
shift @{$h->{'shift'}}
...
          'shift' => []
        };