#!/usr/local/bin/perl

open(LINES, "passonecheck2");
open(OUT, ">passtwocheck2");

my @code, $iter, $line, $header, %existing, $marker;

while($header = <LINES>) {

$marker = 0;

for($iter=0; $iter<64; $iter++) {
    $_ = <LINES>;
    if(/^.*([01]{6}).*/) {
	push @code, $1;
	if($existing{$1} != 1) {
	    $existing{$1} = 1;
	}
	else{
	    print "$header\n$1\n";
	    $marker = 1;
	}
    }
}

if($marker == 0) {
    print OUT "$header@code";
}

@code = {};
%existing = {};

}