my @order_sent = $q->param;
foreach my $param (@order_sent) {
    print "param ", $param, " value ", $q->param($param), "\n";
}