my @array = grep { $_->[0] <= $low || $_->[0] >= $high } @array;