my @karray = map ord, (split //, $key);
my $len = length($key);

# prints true for both
print "true" if $len == @karray;
print "true" if $len-1 == $#karray;