Tested and works but there's probably a better solution.

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
[download]

UPDATE: I decided to go ahead and try to load the hash to the param directly thinking perhaps there's a chance, but it failed. It stored just the params and not the values.

#!/usr/bin/perl 

use strict; 
use warnings;

use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';

print header, start_html;

my %data = param();

foreach my $key (keys %data)
{
   print "$key => $data{$key}<br>\n";
}
[download]