my $porder = gen_order(30);
my $c = $cgi->cookie(-name=>'info',-value=>{ 'user' => $UID,
											   'porder' => $porder,
											   'count' => 1 });

print $session->header(-cookie=>$c);

sub gen_order {
	my $limit = shift;
	my @nums = (1..$limit);
	fisher_yates_shuffle(\@nums);
	return \@nums;
}


##</code><code>##

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

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