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