Win8 Strawberry 5.8.9.5 (32)  Wed 07/14/2021 23:52:13
C:\@Work\Perl\monks
>perl

use strict;
use warnings;

my %func = (
    foo => sub { print "fooble: @_ \n"; },
    bar => sub { print "barble: @_ \n"; },
    );

my $from_form = 'foo';

$func{$from_form}(42, 'zot');

^Z
fooble: 42 zot