$order = "ABCDE";

    %valByKey    
{ A => \A_value }
{ B => \B_value }
{ C => \C_value }
{ D => \D_value }
{ E => \E_value }