for my $element ( @array ) {
    $element =~ s/ +$//;
}