Select Code to Download

$my_ordered_hash{$old_key} = $newvalue;

sub STORE
{
...
        push @{$this->{order}}, $key; 
    }    
}