Select Code to Download

use strict; use warnings; use feature 'say';

...
    $free_space->{$b}->{'mem'} <=> $free_space->{$a}->{'mem'} ||
    $a cmp $b
}

$ perl 1205589.pl

...
12  200 node1
11  500 node4
10  600 node3