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