my $sub_ref = \sub {
    my $who = shift;
    print "hello $who\n";
};

#In order to execute need to deref by prefixing with $
$$sub_ref->('dude');