my @array = split //, $s;

##</code><code>##

no strict 'vars';
for (split //, $s) { eval "\$f$i = $_"; ++$i }