Select Code to Download

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

say "@$_" for sort { $b->[0] <=> $a->[0] or $b->[1] <=> $a->[1] or $a-
+>[2] cmp $b->[2] } 
       map { [$free_space->{$_}{cores}, $free_space->{$_}{mem}, $_ ]} 
+keys %$free_space;

12 400 node456
12 400 node534
...
11 500 node12
11 200 node3
10 900 node10