grep => sub {
        while ( $data =~ /^(\d+) (\d+)/mg ) {
            next if grep { $1 eq $_ } @skip;
            next if grep { $2 eq $_ } @skip;
        }
        return 1
    },
    grep_1 => sub {
        while ( $data =~ /^(\d+) (\d+)/mg ) {
            next if grep { 1; $1 eq $_ } @skip;
            next if grep { 1; $2 eq $_ } @skip;
        }
        return 1
    },

grep_1 316/s     --   -61%
grep   811/s   156%     --