use v5.12.0;
use warnings;
use Data::Dump qw/pp dd/;


sub test {
    my ($x, $y, $z) =
      ( @_,
        ("X","Y","Z")[@_..42]
      );

    pp ($x, $y, $z);
}

test(1..$_) for 0..3