Hash from two arrays

love philosophy himno a quito hitparade its not easy hells kitchen original soundtrack hotel la giada latte per neonati miltina la decapitazione dell ostaggio io ho te audio2 lotto di milano leslie amine liefdeskapitein lesli et amin heresy mondavio la donna riccia modugno hilary dutf has tabulas verres abstulit lee ryan why me inno spagnolo score irdeto plugin skystar 2 jamás il magnate greco kemal malovcic midi la valle dell eden la panthere rose la quindicesima epistola juan alfonso baptista hagen nina letr de hoobastank i consigli un pirla ighina it kisses of no return isola del tesoro kobra inviati di uno mattina lepoglava hotel altavilla spello immagini del giappone leggi industria della carta lovefool the cardigans katie holmes nuda la bigate luca di rio la 2 gurra mondiale here whitout you here with me dido kenya lionel richie testo angel in the middle sugababes hea haïduci luna by verdena il barone brigate rossonere letteratura trecentesca locandina film vanilla sky tom cruise greased lightning istanbul kimsun il tirreno del 1 08 04 la citta e pulcinella hp 635 liquet lose weight by jucing galimberti nino jesi invio sms gratuito love come again laura gemser kurt waill inno al trentino kilye minogue laura pasuini la vittoria di kuca hrvatska korcula jose antonio bordell kassandra la nina la pinta e la santa maria ja sei na morar tribalistas homevideo industrie mobili los panchos il potere insieme mina legge 449 immagini xxx k9 indirizzi a parma lloyd ft ashanti konkretna piosenka hotels taormina lee rayan fotos xx la mer kinsky lotr la nascita del lavoro hej ljubavi u dalekom gradu lambada mmf italo music lotto corriere kristaallen internet italiana kir2kos kaspar kapparoni istituto nazionale urbanistica ibarra k448 mozart luigi xv ho capito che ti amo luigi tenco il gladiatore free midi laura corradin karaoke vecchioni lingua francese pisa kily jordan peele jay z i beyonce http www graffiti it stradivari photos il walzer dell allegria l signorelli flagellazione descrizione ilona i don t wan t to bag inventario beni disponibili hotel helios leonard ljubi mia po francuski homebreakers irmak life goes on 2pac lamartina letitia casat hai scelto me jiuly k700 infradito la roca del moro damablanca karrie anne moss la figlia del re di castiglia la donna nello sport storia jeanni i consigli di bellezza di ovidio incidenti mortali halo combat evolved ispettore ambiente le cose in comune jeesus kids josh groban immagini di capre leonardo manera israel kamakaw jara juliana bb4 lisa marie halleb la clori la vita istruzioni per dragon cam labirinto mamma insegname a ballar huevos cartoons lo strani percorso koronati charter jam eddy watta immagini lupa di roma idris 1 re di libia inno firentina lil eddie italiandreams org kati eho pathi me ta matia sou lu colombo and maracaibo locali gay hajuci lu maritiell la sera dei miracoli juguetibici la bambola mp3 left uot side alone indirizzo the rasmus just because you feel good ludacris act afool hotel voucher conferma holiday inn garde jazzsamba interraziali lavoro fvg lamega98 3 imagination londra a capodanno luca derisio it s good to be love immagini per innamorati lo zingaro felice alex britti letti cosatto la canzone dell ex di eamon lettere didle hombres g en la playa hallo lupen lmc materiale composito lorellacuccarini lilla nigro bloggo la miss perde lo slip ismaelserrano istria rovigni ipofisi

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))