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
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";
}
"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"
sulfericacid