my $Str = "Insert into City_Policies (ID, DATE_CREATED, ISSEDBY, SUBJECT) 
  values ('$policynumber', '$DATE_CR', '$ISSUEDBY', '$newsubject')";
warn $Str;
$dbh->do($Str) or print "I died";