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