foreach my $key1 (sort keys %hash){
	foreach my $key2 (sort keys %{$hash{$key1}}){
		print "$key1\t$key2\t$hash{$key1}{$key2}\n";
	}
}
##</code><code>##

foreach my $key1 (sort keys %hash){	
	foreach my $key2 (sort keys %{$hash{$key1}} ){
		foreach my $key3 (sort keys  %{$hash{$hash{$key1}} }       ){
			print OFH "$key1\t$key2\t$key3\t$hash{$key1}{$key2}{$key3}\n";
		}
	}
}