my $consider = 'foo';
${{
    bar => sub { print "Barred!\n" },
    foo => sub { print "Fooed for thought...\n" }
}}{$consider}();