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