%hash =("name" =>"john", "age"=>"25", "job"=>"programer", "location"=>"US");
while (($key, $val) = each %hash)
{
	if ($matchkey =~ /^$key$/)   #if matches the particular key
	{
	$var = $hash{$key};
     }
		
}

##</code><code>##

$matchkey eq $_ ? $var = $hash{$_} : $var='' for keys %hash;