#!/usr/bin/perl -w
use strict;

# Why go through all that trouble just to init a couple example arrays
+?
my @data    = ( [0, 1], [2, 3], [4, 5], [6, 7], );
my @compare = (2, 4, 5, 6);

# This is the part you want to pay attention to...
my %remove;
@remove{@compare} = ();
my @new = grep { !exists $remove{$_->[1]}  } @data;

# Dump the new array for inspection.
$" = ', ';
print "Contents of \@new    : ( ";
print "[@$_], " for (@new);
print ")\n";
[download]

-sauoq
"My two cents aren't worth a dime.";