sub sort_ranks {
my @array = map {$_->[0]} sort {($a->[1]=~/^R#(\d+)$/)[0] <=> ($b->[1]=~/^R#(\d+)$/)[0]} map {[$_,$entry{$table}{$_}{RANK}]} @_;
}