@listToExpire = grep { $b = (@{$_})[0]; grep { $a = (@{$_})[0]; $b != $a } @listA } @listB;