# Give each row a unique value (1, 2, 3...) for (1..10){ # Name each field, adding the unique value in $_ (A1, B1, C1...) print qq{
##
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
}