Estou dando algumas manutenções em um sistema em Perl (linguagem que sou noob) e precisei criar um novo módulo de relatório onde preciso resolver a seguinte situação: Tenho 2 arrays com os seguintes formatos @head = ("nomeinstituicao", "cnpjinstituicao","nomecliente", "cnpjcliente", "notacliente" ); @data = ("inst1", "12345678000112","joao", "87654321000198","5","inst2","54387612000123","maria","45612387000123","6",...); Preciso produzir um hash no seguinte formato: %hash = ( "nomeinstituicao" => "inst1", "cnpjinstituicao" => "12345678000112", "nomecliente" => "joao", "cnpjcliente" => "87654321000198", "notacliente" => "5", "nomeinstituicao" => "inst2", "cnpjinstituicao" => "54387612000123", "nomecliente" => "maria", "cnpjcliente" => "45612387000123", "notacliente" => "6", ... ); Alguém poderia me ajudar com uma forma de fazer esta transformação de maneira dinâmica levando em consideração que os dados contidos em `$data` estou buscando no BD. Estou tentando o dia todo e não consegui até agora, tentei com `map` e com `while` mas acho que não estou fazendo certo.