my @num_lists = (
    [  0 ..  4 ],
    [  5 ..  9 ],
    [ 10 .. 14 ],
    [ 15 .. 19 ],
);

OUTER: for my $list (@num_lists) {
    for my $num (@$list) {
        if ($num % 10 == 0) {
            print "Skipping $list\n";
            next OUTER;
        }
    }

    for my $num (@$list) {
        print "From $list: $num\n";
    }
}