{
            local $_;
            local *INPUT;
            open(INPUT, "invalid") || die "Cannot open invalid input (invalid) for reading ($!)\n";
            while(<INPUT>)
            {
                next if($_ =~ m/^#/);
                my @curr_invalid = split(/\t/, $_);
                $invalid{$curr_invalid[1]} = $invalid{$curr_invalid[1]} . "\t" . $curr_invalid[0];
            }
            close INPUT;
        }