sub { lc($data{$a}[0]) cmp lc($data{$b}[0]) },