sub f  {
    print "I am a subroutine\n";
}

my $x= \&f; #set $x as a reference, note the \ as reference,
                # to the sub f(), the & signifying a subroutine ref
$x->();	    #print I am a subroutine using the -> dereference