my $sql = "INSERT INTO table (val1, val2, val3) VALUES (?,?,?)";
my $sth = $dbh->prepare($sql) or die "Error: $DBI::errstr";
foreach my $line (@data) {
  $sth->execute(@$line)
    or die "Error in execute: @$line: $DBI::errstr\n";
} # foreach
$sth->finish();