sub parseLines{
    my $content = do {
        open my $in, '<', $_[0] or die "Open failed $_[0]: $!";
        local $/;
        <$in>;
    };
    my %hash;
    for (split /(?<=\n)/, $content) {
        next unless /^\@HWI/;
        my ($header) = split(/ /, $_);
        $hash{$header} = 1;
    }
    return \%hash;
}