foo($x, $y, $z);

##</code><code>##

sub foo
{
    my ($p, $q, $r) = @_;
    ...
}