for my $line (@lines) {
    my $rowsaffected = $dbh ->do($line);
#...