while(<DAT>){
   @line = split(/\t/,$_);
   $myhash{$line[0]} = [$line[1],$line[2],$line[3]]; 
}