sub do_stuff {
    my($x,$y,$z) = @_;
    ...
}