for (@arr1) {
    while ( substr($_,-1,1) eq ' ' ) {  # while the last char is space
       chop();                          # remove the last char
    }
}