@test = split (//,$something);
foreach (@test) {print "$_\n";}