########################################################################
sub savehash {
########################################################################
        my $hash = shift;
        my $path = shift;
        my $fh = new IO::Zlib;
        $fh->open ($path, "wb") or die $path . ": $!\n";
        my $cnt;
        $cnt = keys %{$hash};
        syswrite $fh, sprintf ("%03d", $cnt), 3;
        while (my ($id, $entrylist) = each %{$hash}){
                syswrite $fh, sprintf ("%03d", length($id)), 3;
                syswrite $fh, $id, length($id);
                $cnt = @{$entrylist};
                syswrite $fh, sprintf ("%03d", $cnt), 3;
                foreach my $entry (@{$entrylist}) {
                        syswrite $fh, sprintf "%03d", length $entry, 3;
                        syswrite $fh, $entry, length($entry);
                }
        }
}
########################################################################
sub loadhash {
########################################################################
        my $hash = shift;
        my $path = shift;
        my $fh = new IO::Zlib;
        $fh->open($path, "rb") or die $path . ": $!\n";
        my ($cnt, $len);
        sysread $fh, $cnt, 3;
        for (my $fidcnt = $cnt; $idcnt > 0; $idcnt--) {
                my $id;
                sysread $fh, $len, 3;
                sysread $fh, $id, $len;
                sysread $fh, $cnt, 3;
                for (my $entrycnt = $cnt; $entrycnt > 0; $entrycnt--) {
                        my $entry;
                        sysread $fh, $len, 3;
                        sysread $fh, $entry, $len;
                        push @{$hash->{$id}}, $entry;
                }
        }
}