sub test {
    print "Hello world!\n";
}

my $subroutine = "test";
&{$subroutine};