%hash    = ("name" =>"john", "age"=>"25", "job"=>"programer", "location"=>"US");
%reverse = reverse%hash;

print "$_ \t $hash{$_} $/" for keys %hash;
print "$_ \t $reverse{$_} $/" for keys %reverse;