Select Code to Download

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

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

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