my $ord1 = ord $code1; my $ord2 = ord $code2;