for (@arr1) { chop() while substr($_,-1,1) eq ' ' }