if(chomp($array1[$k]) eq chomp($array2[l]))
---------------------------------------^
print"\n$array1[$k],$array2[$l]";
----------------------------^