[Perl 6] References to subroutines

sub square($n) {
    $n * $n;
}

my $f = □
$f(3) == 9 or die "Wrong value";