my $x = parse_thing();
 my $y = $x->{item} or die "Item not found in x.\n";
 my @z; (@z = do_xyz()) < 3 or die "Got extra Z: @z\n";
 print "Z:@z\n";