array auf reguläre ausdrücke überprüfen

[Pitt]

hallo,

mein cgi-programm liest einige formularfelder mit $q->param() aus und speichert es in einem array(@inhalt). wie kann ich jetzt überprüfen ob sich nur zahlen im array befinden.

aber ich bin irgenwie daraufgekommen dass nur eine variable auf die zahlen geprüft werden kann, mit arrays ist des irgenwie ein problem.

so stell ich mir das vor:

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
my $q = new CGI;

my @inhalt = $q->param();
my @value;
my @value1;

foreach(@inhalt) {
@value = $q->param($_);
push(@value1, @value);
}

if(@value1 =~ /^\d*$/) {
print @value1;
} else {
&test;
}