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

%test_1 = ();
foreach $key (keys %test) {

$val = $test{$key};
$test_1{$val} = $key;
      
}