1 899682 ^E 1 899740 ^E 1 899766 ^E 1 899767 ^E 1 899816 ^E^E^E 1 899915 ^E^E^E^E 1 899924 ^E^E^E^E 1 900121 ^E 1 900159 ^E 1 900373 ^E^E^E^E 1 900686 ^E^E^E 1 900791 ^E 1 900902 ^E^E^E^E 1 900903 ^E^E^E^E 1 901004 ^E 1 901005 ^E 1 901020 ^E^E^E^E 1 901092 ^E^E^E 1 901129 ^E^E^E^E 1 901188 ^E 1 901369 ^E^E^E 1 901423 ^E^E ##

##

my $lineCount = 0;
foreach my $file (@whiFiles) {
    print "reading $file\n";

    open IN, "gunzip -c $file |" or die "Can't open file $!";
    while () {
        next if ($_ =~ /^#/);
        chomp;
        my ($chr, $pos, $codes) = split(/\t/, $_);
        $lineCount++;
    }
    close IN;
}
print "Line count is $lineCount\n";

##

##

my $lineCount = 0;
foreach my $file (@whiFiles) {
    print "reading $file\n";
    my $HANDLE = new IO::Uncompress::AnyUncompress($file,Transparent => 1,
                                      AutoClose=>1) or die;

    while (<$HANDLE>) {
        next if ($_ =~ /^#/);
        chomp;
        my ($chr, $pos, $codes) = split(/\t/, $_);
        $lineCount++;
    }
    close $HANDLE;
}
print "Line count is $lineCount\n";