my @sorted = sort { substr( $a, 2 ) <=> substr( $b, 2 ) } @g;