... I initialized my hashes and the  $s1{animal_id} = 0; part too.

In addition to the other replies, and in case you have not already realized it, the statements
    $s1{animal_id} = 0;
    $s2{animal_id} = 0;
do nothing in the context of the code you have shown. What they actually do is to set the value of the key  'animal_id' to 0 in both the  %s1 and  %s2 hashes on each pass through the  while loop. No further reference is made to this key in these hashes in the code shown. The keys contained in the scalar variable  $animal_id seem to have a format like  'a19' (as far as I can tell from the confusingly formatted OP), and are nothing like  'animal_id'.

The other point to understand is that creating an empty hash (as all hashes and arrays are when created) and then initializing it as an empty hash is not really 'initializing' it in any programatic sense. The only purpose, IMO, of a statement like
    my %s1 = ();
is to say 'yes, I really do mean this hash to be empty at this point', thus obviating the need to type out an explicit comment to this effect – which may be a very useful side effect!

In reply to Re: Uninitialized errors when using 2 hashes. by AnomalousMonk
in thread Uninitialized errors when using 2 hashes. 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.