@sort_keys = sort { $hoa{$a}[0] cmp $hoa{$b}[0] } keys %hoa;