Something like this?

#! perl -slw
use strict;

sub unzip {
    my @first;
    map{
        @first
            ? [ pop( @first ), $_ ]
            : do{ push( @first, $_ ); () }
    } @_
}

my %h = 'a' .. 'z';

print @$_ for unzip %h;

__END__
C:\test>unzip
wx
ef
ab
mn
st
yz
uv
cd
kl
qr
gh
ij
op
[download]