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