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

##</code><code>##

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

##</code><code>##

push @{$lineFileContains{$r[3]}},

##</code><code>##

push @{$lineFileContains{$r[2]}},