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