in reply to Extract and read different columns from the file

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

[download]

Replace the question marks with the appropriate indexes.

In Section Seekers of Perl Wisdom