i suggest you use warnings; or #!perl -w which would have caught your re-declaration of the $key variable, and your declaration of $value1 without using it (you probably meant $value.)

otherwise, your use of map is correct. but you also seem to be confused about variable scoping. in that case, Coping with scoping (or anything on Dominus's home node) may be a good read.

it's good practice, during development, to put the following block in every perl script: 

#!/usr/local/bin/perl -w
use strict;
use diagnostics;
$|++;

[download]
of course, you'll replace '/usr/local/bin/perl' with the location of your perl executable. this will turn on the warnings, strict, and diagnostics pragmas, which will enforce some good coding practices, and make code easier to debug. for more info, read Use strict warnings and diagnostics or die. also, $|++ will unbuffer your output to STDOUT, which means printing will be timely.

~Particle ;Þ

In reply to Re: How to assign a hash from an array? by particle
in thread How to assign a hash from an array? by jamen

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.