push @tmp, $a[$_]
      if ( $a[$_ + 1]) eq ( $b[$map{$a[$_]} + 1] )
         or @tmp >= 1;