my $hello = sub { print "hi there" };

sub other_hello {
   print "hello again\n";
}
my $other = \&other_hello;