For reference:

Valid is either

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

   sub ($x, $y, $z) {