foreach my $key1 (sort keys %somehash) {
   foreach my $key2 (sort keys %{$somehash{$key1}{justtest}}) {
      print($key1, ':', $somehash{$key1}{justtest}{$key2}, "\n");
   }
}