Help for this page
%hash =("name" =>"john", "age"=>"25", "job"=>"programer", "location"=> +"US"); while (($key, $val) = each %hash) ... } }
$matchkey eq $_ ? $var = $hash{$_} : $var='' for keys %hash;