my @names = param();
my %data;


foreach my $name (@names)
{

  next if ($name =~ m/SubmitButtonName/);

  $data{$name} = param($name);;
}

foreach my $key (keys %data)
{
   print "$key => $data{$key}<br>\n";
}
# all goodies are in %data