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