Select Code to Download

<pre>
$order = "ABCDE";

...
{ D => \D_value }
{ E => \E_value }
</pre>

sub getByKey {
    my $key = shift;
...
    
    return $valByKey{ $key };;
}

$order = "CABDE";

...
{ C => \C_value }
{ D => \D_value }
{ E => \E_value }