Good morning all.

This is the first time that I've actually worked with hashes and I'm stuck on something that's probably going to be a very easy fix. I'm trying to automate a system tool that scans multiple VLANs, however, I'm having trouble passing the variable to the hash.

Below is the section of code in which I the problem is occuring. Everything works as expected, except, the hash value is not being printed out to the screen. 

use strict
use warnings
use diagnostics

my ($key, $system, $value, $vl1, $vl2, $vl3);
my %vlan = (
   "VLAN1" => $vl1,
   "VLAN2" => $vl2,
   "VLAN3" => $vl3,
)

-- LINES OMITTED --

print "VLAN1: ";
chomp ($vl1 = <STDIN>);
print "VLAN2: ";
chomp ($vl2 = <STDIN>);
print "VLAN3: ";
chomp ($vl3 = <STDIN>);

-- LINES OMITTED --

while (($key, $value) = each %vlan) {
   print "Now checking: $system\_$key $value";
   -- LINES OMITTED --
}

[download]

When I run this code, I get for example: 

systemName_VLAN1

[download]
However, I am hoping to get an output of: 
systemName_VLAN1 1.1.1.1

[download]
providing that the user entered a value of 1.1.1.1 into $vl1.

Any help as to what I'm missing or maybe a better way to do this would be greatly appreciated.

Thanks in advance for your infinite wisdom!

In reply to Passing a variable to a hash by rspishock

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.