#!/usr/bin/perl
while (<>) {
@tmp = split;
push @failures, [ @tmp ];
}
$konst = $failures[0];
for $i ( 0 .. $#failures ){
        for $j ( 0 .. 6 ) {
                if ( $i == 0 ) {
     if ( $konst->[4] eq $failures[$i+1][4] && $konst->[6] eq $failures[$i+1][6] ) {
                                        print "\t$failures[$i][$j]";
                                        $konst = $failures[$i+1];
;               }
                                }
elsif ( $konst->[6] eq $failures[$i+1][6] && $konst->[6] eq $failures[$i+1][6] ) {
                                        print "\t$failures[$i][$j]";
                                        $konst = $failures[$i+1];
;}
                                        }
print "\n";