#!/usr/bin/perl 
use strict;
use warnings;

my $fileName = $ARGV[0];

open (FILE, "<", $fileName);

my $header = <FILE>;
my @countArray = ();
my @line;
my @allTags;
my %results;
my $uniqueTag; 
my $one = "NO";
my $three = "NO";

while (<FILE>)
    {
        @line = split(" ", $_);
        $uniqueTag = $line[0] if @line > 1;
        if (@line == 2)
            {
                $three = "YES" if $line[1] == 3;
                $one = "YES" if $line[1] == 1;
            }
                
        if ((@line <2) || (eof))
            {
                if (($three eq "YES") && ($one eq "YES"))
                    {
                        $results{$uniqueTag} = "GOOD";
                    }
                    
                else
                    {
                        $results{$uniqueTag} = "BAD";
                    }
                push (@allTags, "$uniqueTag");
                $one = "NO";
                $three = "NO";
            }
    }

for (@allTags)
    {
        print STDERR "$_\t $results{$_}\n";
    }
[download]