%hash=('A'=>1, 'B'=>2, 'C'=>3, 'D'=>4);

##</code><code>##

@keyarr=(keys (%hash));
foreach (@keyarr)
{print hash{$_}=>$_;

##</code><code>##

foreach $key (sort (keys (%hash)))
{print "$key => $hash{$key}\n";}