my %iddates;


for my $key (keys(%iddates)) {
		
		foreach my $fact1 (keys %{ $iddates{$key} }) {
			$iddates{$key}{$fact1};
			my @numbers = map { $_->[1] } values(%{$iddates{$key}});
			 printf("%dd: max: %s", $key, maxstr(@numbers));
		}
		
	}