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

##</code><code>##

@key3 = split(//, $key);