Select Code to Download

my @numword = qw( zero one two three four five six seven eight nine te
+n );
my $i = 0;
${ "f_" . $numword[ $i++ ] } = $_ for split //, $string;