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

• -style=>"text-decortation:underline"
  should be
  -style=>"text-decoration:underline"

• -style=>color=>"blue"
  should be
  -style=>"color:blue"

If something should be underlined/blue/whatever and it isn't, check the syntax of the code that should cause those changes to happen, both in the source and in the generated HTML.