Select Code to Download

sub unzip(&@) {
    my $code = shift;
...
use Data::Dumper;
my %h = qw(k1 v1 k2 v2);
print Dumper [unzip {[shift @$_,shift @$_]} %h];

sub unzip(&\%) {
    my $code = shift;
...
use Data::Dumper;
my %h = qw(k1 v1 k2 v2);
print Dumper [unzip {[$_[0], $_[1]]} %h];