$ perl -Mstrict -Mwarnings -E 'sub z { reverse @_ } my %y = qw{c 3 d 4};
> say "@{[z(%y)]}";'
4 d 3 c