foreach my $va (sort {$a <=> $b} keys %myhash) {
       	foreach my $vb (sort {$a <=> $b} keys %{ $myhash{$va} }) {
		       	my $vc = $myhash{$va}{$vb};
				print OUTFILE "$va\t$vb\t$vc\n";
			}
		}
}