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