Hello Monks, I am trying to read a file and save the information into a hash , I am able to do that but when I try to update the file again I am trying not to insert the same information again so I am checking the hash to see if there is a key defined in there with the information I am inserting . It doesn't seem to do the check correct eventhough I am inserting the same data . 

data
----
one     two     three
three     one      two
one      one     three         

my %currentData;
open (DATA, "data") or die "";
my $line;
while ($line = <DATA>) { 
chomp $line;
$currentData{$line}++;
}
close DATA;

# Now after reading the user inputs for updating the file as follow
my @updateInfo;
my @updateInfo = "$inputONE\t$inputTwo\t$inputThree";

if ( $currentData{$line} ) { print "the info exists already\n"; exit; 
+}
else { print " your info is being saved and the file is updated\n"; ex
+it; }

[download]
it always goes to the else , why ????

In reply to Hash problem by Anonymous Monk

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.