use strict;
use warnings;
use 5.010;

sub greet {
    say 'hello';
}

sub test {
	my $str = "greet";
    goto &{$str}; #SYMBOLIC REFERENCE
}

test();