use List::MoreUtils qw( apply );
@array = apply { s/\s+\z// } @array;

##</code><code>##

map { s/\s+\z// } @array;

##</code><code>##

s/\s+\z// for @array;