my $pay = $q->param(payment=>"discover","master","check");