$ perl -Mstrict -Mwarnings -E 'my %y = qw{c 3 d 4}; say "@{[%y]}";'
c 3 d 4

##</code><code>##

$ perl -Mstrict -Mwarnings -E 'my %y = qw{c 3 d 4}; 
> say "@{[join q{;} => map { $_ . q{=} . $y{$_} } sort { $b cmp $a } keys %y]}";'
d=4;c=3

##</code><code>##

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