Select Code to Download

my $porder = gen_order(30);
my $c = $cgi->cookie(-name=>'info',-value=>{ 'user' => $UID,
...
    return \@nums;
}

my %info = $cgi->cookie('info');
my $porder = $info{'porder'};

my $current = $porder->[0];