Really cute. Unportable under 5.005, but portable on 5.6. However one technical note, you can reduce it to 29:

sub h {
#        1         2
#2345678901234567890123456789
[map[eval],glob'{-,}1,'x pop]
}
[download]