#!usr/bin/perl

use warnings;
use strict;

my @array = ( "One\n", "Two\n", "Three", "Four", "Five\n" );

my $newlines = chomp ( @array );  
print "\nWe just removed $newlines newlines from that list!\n";
print "\nThe list is now @array.";