my $porder = join ",", @{gen_order(30)};