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