You don't need to pull out the tactical nuke for this.

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

Makeshifts last the longest.