use Sort::Key qw(nkeysort);

my @array = nkeysort {
  $entry{$table}{$_}{RANK}
} keys %{$entry{$table}};