Select Code to Download

$entry{$table}{A}{RANK} = R#3;
$entry{$table}{C}{RANK} = R#2;
$entry{$table}{B}{RANK} = R#1;

@array = qw(B C A);