ist das übrigens so gewollt, dass du an jede zeile noch ein zusätzliches newline dranhängst? da du ja ein print "$_\n" machst. an dem $_ ist eh noch das newline dran.