while (@array1) {
	
	next if defined $skip{$_->[0]};
	push @array2, shift @array1;

}