if ( not exists $order{$key} ) {
    $order{$key} = 0 + scalar keys %order;
}