Hash from two arrays

la settimana al mare transflash memory stick card cgp orsogril testo canzone latino americana senso vasco bmw 318 i 1994 alessia fabiani s buona domenica vigile del fuoco it tamron lens produttori bicicletta theblackeyedpeas edizione paoline xerox 6350 generale vasco fma 535w eclissi di sole vida loca villa scacciapensieri airen designjet 430 a4 a1 traduttore multilingue p (trasporti) vacanza estive al mare globalsat pda holder stampanti a3 per rete webmarketing ecommerce film pornografici da 60 minuti nike nz wired pussy nikon sb600 offerta cellulari motorola the stupids uomo tanga ivan i delin voeyur gratis modena city ramble topless grande fratello zoom 10x vita storie e pensieri di un alieno rady or not d 12 eminem laserjet 5550 processore p4 630 tino almera discoteca holliwood in lloret de mar player mp3 usb o c soundtrack prima squadriglia xd memory card 512 easynote r4360 dieta yogurt dulcinea del toboso nbe com kvm 8 cavi solo scarpe puma xerox docuprint m750 lugnano in teverina tr italgiure he ya cullelettini culle e lettini navigator 5 tom tom bushido blade 2 codice sblocco telefoni tre gloversville testi canzoni emon dediche con rime strength x eminem music box biographical collection kiribati microsoft wireless bluetooth camballa balla hard disc usb 2 0 200gb ferro da stiro stirella kamasutra quelli della virginia us robotics 56k disturbed m o l david caruso la sposa scomparsa lettori dvd progressive pal il prigioniero claudia mannoni sen mantenimiento comparse risplendi gerusalemme foto belle ragazze sande jakob www barney com facolta di fisioterapia mutuo fondiario dvd intenso lettori dvd dvx portatili directline cover cellulare motorola johnston george henry hemel hempstead invecchiamento cellulare pavia da elettrici a elette usato toyota rav4 riassunto vanity fair chario altoparlanti nonno supermen www umbria it bigiotteria finita www brasile com font free in linea net paris (francia) genertel it hard disk da 40 gb esterno racconti incesto suocere hp photosmart m417 buona sera signorina bill conti gonna fly now beautiful profilax anticipato il calcio konami mini cd vergini cara mia ex articolo31 philips dect 111 borse neonato gigi agostino dulce ram 256 mb villa gemma tiger woods psp crt 19 flat stampanti laser samsung 2010 accessori 2020 hrmanita haiducii dragostea din tei haiducii vs classifiche latino americano homeworld arte della bigiotteria srl lecce bravo air race nasiriya player divx portatile antoinette van dijk corinna vittorie perdute olympus e1 obiettivi steal this album packard bell store play hard disk san bernardo piccolo hp scanjet 4600 musica del film il gladiatore bankiva fastweb net proeski dep purple tasso di cambio dollaro euro mp3 paso adelante residence isola d elba giorgio iii nokia hs4w bluetooth hs 4w hard disk seagate ux series wwww latinchat siempre tamara ram cisco 1700 hit mania sance estate 2004 trapani avvitatori motorola v300 batteria ratti della sabina saint ropez www tsp gov download tarzan agenzia trasloco c 50 benq ati 9550 schede video kit gps nokia mizuno wave creation v cassine nuptial yanksee seca2 polacco italiano midi baciami meneguzzi trio medusa mp3 bonsignori comune di forli telecomando 885 logitech gigolo california dream racconti di cuckold ufficio poggibonsi banco pizza video nike pipistrelli in volo etichetta dvd cd heavi ostbahn www fondos iconos com orologi energia solare nikon digital flash maska baby looney tunes wild danse kit home theatre divx univison il signore degli anelli torna su pc e psp

Hash from two arrays
You are encouraged to solve this task according to the task description, using any language you may know.

Using two Arrays of equal length, create a Hash object where the elements from on array (the keys) are linked to the elements of the other (the values)

Ada

Compiler: GNAT GPL 2007

with Ada.Strings.Hash;
with Ada.Containers.Hashed_Maps;
with Ada.Text_Io;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;

procedure Hash_Map_Test is
   function Equivalent_Key (Left, Right : Unbounded_String) return Boolean is
   begin
      return Left = Right;
   end Equivalent_Key;
  
   function Hash_Func(Key : Unbounded_String) return Ada.Containers.Hash_Type is
   begin
      return Ada.Strings.Hash(To_String(Key));
   end Hash_Func;
  
   package My_Hash is new Ada.Containers.Hashed_Maps(Key_Type => Unbounded_String,
      Element_Type => Unbounded_String,
      Hash => Hash_Func,
      Equivalent_Keys => Equivalent_Key);
     
   type String_Array is array(Positive range <>) of Unbounded_String;
     
   Hash : My_Hash.Map;
   Key_List : String_Array := (To_Unbounded_String("foo"), 
      To_Unbounded_String("bar"),
      To_Unbounded_String("val"));
     
   Element_List : String_Array := (To_Unbounded_String("little"), 
      To_Unbounded_String("miss"), 
      To_Unbounded_String("muffet"));
     
begin
   for I in Key_List'range loop
      Hash.Insert(Key => (Key_List(I)),
         New_Item => (Element_List(I)));
   end loop;
   for I in Key_List'range loop
      Ada.Text_Io.Put_Line(To_String(Key_List(I))