my $s=$dbh->quote($a);