I am getting this error
DBD::mysql::st execute failed: called with 181 bind variables when 172 are needed at line 110, <$fh> line 1.
I think the problem lies within this section of the code
while ( my $row = <$fh> ) {
chomp $row;
my @DNA = split('\|', $row);
my $participant_id = $DNA[0];
$participant_id =~ s/\>//g;
my $array = $DNA[1];
my $length = length $array;
$array =~ tr/a-z/A-Z/;
$array =~ s/(...)/$1 /g;
$array =~ s/\s+/,/g;
my @DNA1 = split (',', $array);
unshift @DNA1, $participant_id;
$sth4->execute(@DNA1); # Line 110
}
$sth4->finish;