@arr=sort {split(/\s+/,$a)[-1] cmp split(/\s+/,$b)} @arr;