open FILE, $my_file;
while (<FILE>)
{
$_=~/(.*)\t(.*)/;
$name=$1;
$code=$2;

$hash{$name} = $code;

}