Select Code to Download

# This should not have the '$dbh->' at the beginning, but the real iss
+ue is
# $cluster here is a scalar, but
foreach my $cluster (@clusters) {
...
$dbh->do ("INSERT INTO $table (start, end) VALUES (?,?);", @{$cluster}
+)
# or even: $dbh->do ("INSERT INTO $table (start, end) VALUES (?,?);", 
+$cluster->[0], $cluster->[1])
}

@_=qw;
Just another Perl hacker,;
;$_=q=print
"@_"= and eval;