Update

while(param()) { push (@num, $_) if $_ ~= m/^d$+/ } might work

You should iterate the parameter list with for, not with while - while will result in an infinite loop.

Actually it didn't result in an infinite loop and I asked in the chatterbox prior to posting and two other people said that param() should stop the loop once it's iterated through with for(). I could be wrong but when I tested it, it worked and stopped once the page loaded.


"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

use CGI;

my $cgi = CGI->new;

# using a list of parameters
for my $key ($cgi->param()) {
  printf "%s=%s\n", $key, $cgi->param($key);
}

# Using a hash of key => value
my %params = $cgi->Vars();
while (my ($key, $value) = each %params) {
  printf "%s=%s\n", $key, $value;
}

[download]