Don't comment out use strict; use warnings;. See the DBI documentation regarding placeholders. You're not checking your inserts work:

my $rows = $dbh->do($statement) or die $dbh->errstr;
[download]

Which is also covered in the documentation. For debugging check that you have a value for each of the fields, for example:

Warn "value1: $value1, value2: $value2...";
[download]