#!/usr/bin/perl
use strict;
use warnings;

my %sorthash = ();

$sorthash{'10'}{'20'}{1}{2}{3}= '1';
$sorthash{'40'}{'50'}{1}{4}{3}= '4';
$sorthash{'20'}{'30'}{3}{4}{3}= '2';

# Flatten
my @flat_array = ();
for my $key1 (keys %sorthash) {
    for my $key2 (keys %{$sorthash{$key1}} ) {
        for my $key3 (keys %{$sorthash{$key1}{$key2}} ) {
            for my $key4 (keys %{$sorthash{$key1}{$key2}{$key3}} ) {
                for my $key5 (keys %{$sorthash{$key1}{$key2}{$key3}{$key4}} ) {
                    push @flat_array, [$key1, $key2, $key3, $key4, $key5, $sorthash{$key1}{$key2}{$key3}{$key4}{$key5}];
                }
            }
        }
    }
}

# Sort flat array
for my $entry (sort { $a->[3] <=> $b->[3] or $a->[2] <=> $b->[2] } @flat_array)
 {
    print join ", ", @$entry;
    print "\n";
}