(my ($x,$y,$z) = @ARGV) == 3 or usage();
# and trim it just a bit more...
(my($x,$y,$z)=@ARGV)-3&&usage();