Select Code to Download

open ($handle, 'surnames.html');
while (<$handle>) {
...
}
close ($handle);
print '"' . join ("\",\n\"", sort keys %hash) . '"';