print "reading 'ansvarig_vardenhet_utf8.txt'\n";
open(IN, "female1.txt");
while($line = <IN>) {