You could use closures ({ my $key = 'abc'; $h{$key} = sub { ... $key ... }; }), but it won't updated if you move the sub to another key, and the whole idea reaks of bad design.