my @array = map /./g, $string;