my @essentials = qw /1 3 5 7/;
my @large = qw /0 2 3 4 5 6 7 8/;
my $result = "OK";
for my $i (@essentials) {
    unless (grep {$i == $_} @large) {
        $result = "NO";
        last;
    }
}
print $result;      # prints NO


my @essentials = qw /1 3 5 7/;
my @large = qw /0 1 2 3 4 5 6 7 8/;
my $result = "OK";
for my $i (@essentials) {
    unless (grep {$i == $_} @large) {
        $result = "NO";
        last;
    }
}
print $result;      # prints OK