use strict;
sub dynamic { print "hello\n"; }

my $name = "dynamic";
&{ \&$name }();