foreach $tmpline (@lines)
{
  $tmpline=~s/[\012\015]//;
  $dbh->do("INSERT INTO foo VALUES (1, "$tmpline")");
}