&B(x,y,z);

sub B{
my($x, $y, $z)= @_; # こうやって、渡された値を受け取るんだよ

}