@data = sort{ lcfirst $a->[1] cmp lcfirst $b->[1] }
                      map{ s/^\s+|\s+$//; $_ } @data;