# certification check statement my $service_requests = CGI->new() or dienice("it's the CGI thing"); my (%services, $test, $LIST_QUERY); foreach my $checked_box ( $service_requests->param ) { if ( $checked_box =~ m/(\d+)_\d+/ ) { my $product_id = $1; push @{$services{$product_id}}, $service_requests->param($checked_box) or dienice("it's the services push"); $test = "t"; } else { dienice("it's not seeing checked boxes @{$service_requests->param}[0..3]"); } }