my $f = 'subroutine';

eval "$f";

sub subroutine {
   print "In sub!\n";
}