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);
26 while ($_ = <IN> and $i++ != 1000) {
28 if (exists $proper{$_}) {
29 print OUT "$proper{$_}\n";
31 (s/^MC(.)(.+)/Mc$1\L$2\E/
32 or s/(.)(.+)/$1\L$2\E/);