open ($handle, 'surnames.html');
while (<$handle>) {
    $hash{$1} = () if m/^<\w+?><B>(\w+?)<\/B>/;
}
close ($handle);
print '"' . join ("\",\n\"", sort keys %hash) . '"';