@f = split //, $s;
# Now, each char is in $f[0], $f[1], etc.

##</code><code>##

my $i = 0;
${'f' . $i ++} = $_ for split //, $s