my $x = sub {
    print "I am a subroutine\n";
};		#note the semi-colon, this is an assignment to $x

$x->(); # will print: I am a subroutine
    # the dereference -> in combination with the () causes the
    # dereferenced subroutine to be called