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

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