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