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

##</code><code>##

my @porder = split /,/, $info{'porder'};