3 open A, "working/with-accents.lst";
4 open B, "working/without-accents.lst";
8 $with_accent = <A> or last;
10 $without_accent = <B> or die;
12 $lookup{$without_accent} = $with_accent;
17 if (exists $lookup{$_}) {
18 print "$lookup{$_}\n";
22 if (exists $lookup{$_}) {
23 print "$lookup{$_}'s\n";