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

##</code><code>##

my @values = (
    ["A", "B", "D", "0"],
    ["E", "F", "G", "1"],
    ["H", "I", "J", "2"],
    ["K", "L", "M", "3"],
    ["N", "O", "P", "4"],
    ["Q", "R", "S", "5"],
    ["T", "U", "V", "6"],
    ["W", "X", "Y", "7"],
);

my $query = "INSERT INTO tablename VALUES \n"
          . join(",\n", ( map { "(". join ( ", ", 
            map {$dbh->quote($_)} @$_). ")" }
            @values));

##</code><code>##

ALTER TABLE tablename DISABLE KEYS;

# do the insertion

ALTER TABLE tablename ENABLE KEYS;