for my $x (qw( cat dog fish )) {
   no strict 'refs';
   *{"function_$x"} = sub { print $x };
}
function_cat();      # print "cat"
function_banana();   # error