my $str   = 'millenium';
my @array = map {chr} unpack 'C*',$str;