Select Code to Download

# Validate a data set
ITEM: foreach my $item (@data) {
...
    }
    # Do something useful with this item.
}

if (3 != grep {exists $item->{$_}} qw(foo bar baz)) {
    warn ....; # but your warning can't be as specific.
    next;
}