Hi,

since your Dump contains 2 'hostname' elements, i think you really have a ArrayRef which contains HashRefs.

you also have to take care of your sorting.

hopefully my example code helps:

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

#Hash Number 1
my %hash1 = (
    'hostname' => {
        '1' => {
            'pass' => 1,
            'cpu' => '0.07%',
            'box_name' => 'hostname',
            'capacity' => '0.41%'
        }
    }
);

#Hash Number 2
my %hash2 = (
    'hostname' => {
        '1' => {
            'pass' => 1,
            'cpu' => '0.04%',
            'box_name' => 'hostname',
            'capacity' => '0.25%'
        }
    }
);

#Array of Hash Refs
my @array = ( \%hash1, \%hash2 );

#Array Ref
my $results = \@array;

#Result Elements (Hash Refs $a and $b) are dereferenced and values of 
+key cpu is used for sorting                                          
+      
foreach my $router ( sort { $a->{'hostname'}{1}{cpu} <=> $b->{'hostnam
+e'}{1}{cpu} } @{$results} ) {
    print Dumper($router);
}
[download]

Hi, thanks for the reply. Sorry, I redacted the data where hostname sat. Those values are in fact unique for each key.

'hostname1' => {
                                                '1' => {
                                                         'pass' => 1,
                                                         'cpu' => '0.1
+1%',
                                                         'box_name' =>
+ '',
                                                         'capacity' =>
+ '0.57%'
                                                       }
                                              },
          'hostname2' => {
                                                   '1' => {
                                                            'pass' => 
+1,
                                                            'cpu' => '
+0.09%',
                                                            'box_name'
+ => '',
                                                            'capacity'
+ => '0.43%'
                                                          }
                                                 },
[download]

Hi,

there you go.

i must confess that i missed also 1 thing in your sort function.

the cpu percentage will not interpreted as an numeric value, so you have to use cmp instead of <=>.

see perlop

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %results = (
    'hostname1' => {
        '1' => {
            'pass' => 1,
            'cpu' => '0.07%',
            'box_name' => 'hostname',
            'capacity' => '0.41%'
        }
    },
    'hostname2' => {
        '1' => {
            'pass' => 1,
            'cpu' => '0.04%',
            'box_name' => 'hostname',
            'capacity' => '0.25%'
        }
    }
);

my $results = \%results;
                                                
foreach my $router ( sort { $results->{$a}{1}{cpu} cmp $results->{$b}{
+1}{cpu} } keys %{results} ) {
    print Dumper($results->{$router});
}
[download]

Your example shows you indexing the hash keys in the wrong order; it was trying to find the key named "1" in the %$results hash, which didn't exist. Use: foreach my $router ( sort {$results->{$a}{1}{cpu} <=> $results->{$b}{1}{cpu} } keys %$results ).