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