in reply to removing \n with for each

If you want to remove the newline from all the lines in the array, use
chomp @lines;

If you want to delete the newline only from the last line, use

chomp $lines[-1];
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ