I think that is a common practice in Perl. I always write code like this:

my %functions = (
    'this' => sub { ... },
    'that' => \&do_something,
);

my %attrs = (...);
my $key = 'this';

$functions{$this}->(\%attrs);
[download]

Hope this helps.