$ 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