my @sorted = sort { substr($a, 1, 1) cmp substr($b, 1, 2) } @names;