my $ae_1 = chr 0xe4;