for (1..10){ my ($A, $B, $C, $D) = (CGI::param("A$_"), CGI::param("B$_"), CGI::param("C$_"), CGI::param("D$_")); # This line confirms that the user entered something in at least one field next unless grep {defined $_} ($A, $B, $C, $D); # Now that we know we got user input, do an insert into the database }