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