%a = (one => 'eins',
          two => 'zwei',
          three => 'drei',
          one => 'uno');

    %b = (one => 'eins',
          two => 'zwei',
          drei => 'drei');
    $b{one} = 'uno';