Select Code to Download

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

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