my @array = sort {
    $entry{$table}{$a}{RANK} cmp $entry{$table}{$b}{RANK}
} keys %{$entry{$table}};