my $alpha = chr(65);