sub foo($x, $y) { say $x ~ $y };
my $foo_ref = &foo;