3 @namefiles = qw(21986na.mes 3897male.nam 4946fema.len);
5 foreach $f (@namefiles) {
6 open IN, "l/proper-names/$f" or die;
13 $proper{$_} = $proper;
19 @files = qw(dist.all.last dist.female.first dist.male.first);
27 open OUT, ">$f-rest.lst";
30 if (exists $proper{$_}) {
31 print OUT "$proper{$_}\n";
33 (s/^MC(.)(.+)/Mc$1\L$2\E/
34 or s/(.)(.+)/$1\L$2\E/);
40 qx"sort $f.lst -o $f.lst";
41 qx"sort $f-rest.lst -o $f-rest.lst";