use strict;

sub func1 {
    print "Here\n";
}

my $var = \&func1;

$var->();