foreach $name ( @names ) { if ( $name =~ /\_/ ) { next; } else { print "

".$name."\t=\t".$query->param($name) . "

\n"; } some thing like this you can do