Win8 Strawberry 5.8.9.5 (32)  Sat 05/08/2021  0:53:55
C:\@Work\Perl\monks
>perl
use strict;
use warnings;
my %dispatch = (
    normal => sub{"$_[0] Normal dispatch"},
    map {
        my $__ = $_;
        $_ => sub{"$_[0] Sub returns $__"}
        }
        qw| Uno Dos tres|
    );

print $dispatch{"normal"}->(0),"\n";  # 0 Normal dispatch (as expected)
print $dispatch{"Uno"}   ->(1),"\n";  #  WANT: "1 Sub returns Uno"
print $dispatch{"Dos"}   ->(2),"\n";  #  WANT: "2 Sub returns Dos"
^Z
0 Normal dispatch
1 Sub returns Uno
2 Sub returns Dos