my $i = 0;
for( split //, $s ) { no strict 'refs'; ${ 'f' . $i++ } = $_ }