@cles = split(//, $key); foreach $key2(@cles) { chr($key2); push(@key3, $key2); }