for(@arr1){1while' 'eq($c=chop);$_.=$c}