use strict;

sub dynamic {
  print "Mmm, dynamic.\n";
}

my $name   = 'dynamic';
my $subref = \&$name;
&$subref();