my $chomped = chomp (@array)