Win8 Strawberry 5.8.9.5 (32)  Mon 05/10/2021  9:33:38
C:\@Work\Perl\monks
>perl
use strict;
use warnings;

my %dispatch = (
    normal   => sub{ "$_[0] Normal dispatch" },
    map { $_ => eval qq{ sub{ "$_ returns \$_[0]" } } } qw(Uno Dos tres),
    );

print $dispatch{'normal'}->(  0), "\n";
print $dispatch{'Uno'   }->(  1), "\n";
print $dispatch{'Dos'   }->( 22), "\n";
print $dispatch{'tres'  }->(333), "\n";
^Z
0 Normal dispatch
Uno returns 1
Dos returns 22
tres returns 333