Select Code to Download

  while  ($line = <$fh>) {
  chomp (@r = split/\s+/);

     push @{$lineFileContains{$r[3]}}, [@r[4..$#r]];

               foreach (@{$lineFileContains{$_}}) {
                 print "\t$_->[3]\t$_->[4]\n";
               }