my %h;
while (<>) {
   chomp;
   my @rec = split;
   $h{$rec[???]} = [ @rec[???, ???, ???] ];
}