Help for this page
my %hash; ... { printf "%02x\n", $hash{$x}{key}; }
foreach my $id (sort keys %hash) { printf Out "%02x\n", $hash{$id}{"counter"}; }