Help for this page

Select Code to Download


  1. or download this
    @listToExpire = grep { $b = (@{$_})[0] &&
 grep { $a = (@{$_})[0] && $b != $a } @listA
 } @listB;
  2. or download this
    @listToExpire = grep { $b = (@{$_})[0]; grep { $a = (@{$_})[0]; $b != 
+$a } @listA } @listB;