Select Code to Download

INSERT INTO tablename (col1, col2, col3) VALUES
(value1, value2, value3), 
(value1, value2, value3), 
(value1, value2, value3), 
(value1, value2, value3);

my @values = (
    ["A", "B", "D", "0"],
...
          . join(",\n", ( map { "(". join ( ", ", 
            map {$dbh->quote($_)} @$_). ")" }
            @values));

ALTER TABLE tablename DISABLE KEYS;

# do the insertion

ALTER TABLE tablename ENABLE KEYS;