@arr1 = map{ (s/\s*$//)&&$_}@arr1;