my @db_values = split (/,/,$entry);
next unless ( @db_values == 7 );  ## add this line
$DB->sql("INSERT INTO Files ... ");

##</code><code>##

steve@kirk:~$ perl -wle'push @foo, undef for (0..6); print scalar @foo'
7

##</code><code>##

steve@kirk:~$ perl -wle'open FOO, undef || die "FOO! $!";'
Name "main::FOO" used only once: possible typo at -e line 1.
FOO!  at -e line 1.
steve@kirk:~$ perl -Mstrict -wle'open FOO, undef || die "FOO! $!";'
Name "main::FOO" used only once: possible typo at -e line 1.
FOO! Bad file descriptor at -e line 1.