while (<$fh>) {
   my ($id, $desc) = /^[^:]*:([^\t]*)\t(.*)$/;
   $hash{$id} = $desc;
}