my @array = ( "one\n", "two\n", "three", "four\n" );
my $result = chomp @array;
print $result, $/;
print @array;