#!/usr/local/bin/perl

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

my @code, $iter, $line, $header;

while($header = <LINES>) {

for($iter=0; $iter<64; $iter++) {
    $line = <LINES>;
    push @code, $line;
    }

$_ = $code[63];

if(/.*1.*1.*/) {}
else {
    print OUT "$header@code";
}

    @code = {};

}