print "enter a key u want to search";
$k = <STDIN>;
$h = perlhash($k);