Help for this page
foreach my $param ( $cgi->param ) { next if ( $param !~ m/^hidden_(.+)$/ ); ... # add this item } }