Select Code to Download

foreach my $cluster (@clusters) {
    my $sth = $dbh->prepare("INSERT INTO $table (start, end) VALUES (?
+, ?)") or die $dbh->errstr;
    $sth->execute($cluster->[0], $cluster->[1]) or die $sth->errstr;;
}