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

##</code><code>##

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

##</code><code>##

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