@data = sort{ lcfirst $a->[1] cmp lcfirst $b->[1] } @data;