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