#!/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});
}