# TODO - prototype code only!
my @num2word = qw{zero one two ... twenty};
...
say q{I have }, $num2word[$apple_count], q{ apples.};