my @params = $cgi->param(); foreach my $param ( @params ) { if ( $cgi->param( $param ) ) { print "param( $param ), "\">"; } }