foreach my $id (sort keys %hash)
    {
        printf Out "%02x\n", $hash{$id}{"counter"};
    }