Select Code to Download

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

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