@array2 = <KATFILE>;
chomp @array2;

foreach $el ( 0 .. @array2 ) {
	next if whileif( \@array2, $el, 10, $distfile, $outfile );
	next if whileIf( \@array2, $el, 11, $distfile, $outfile );
	next if whileIf( \@array2, $el, 12, $distfile, $outfile );
	next if whileIf( \@array2, $el, 13, $distfile, $outfile );
	next if whileIf( \@array2, $el, 14, $distfile, $outfile );
	next if whileIf( \@array2, $el, 15, $distfile, $outfile );
    print OUTFILE "$array2[$el]\n";
}