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