My web host is stuck on Perl 5.12.2 Many of the examples in the 5.24 perldsc just do not work. Like: 5.24 docs sez $thirdList{$itemArea}[$itemId] = [a,b,c] will work, but it doesn't. The push job does though. Need some old geezers to explain "how it used to be done". I'm creating a hash of an array of an array. 
use strict;
use warnings;

my $itemArea;
my $itemPrice;
my $itemId;

my %thirdList;

my $area;
my $i;

$itemArea = "0188"; $itemId = "0000007777"; $itemPrice = "40";
push @{ $thirdList{$itemArea} }, [ $itemArea, $itemId, $itemPrice ];

$itemArea = "0188"; $itemId = "0000009980"; $itemPrice = "41";
push @{ $thirdList{$itemArea} }, [ $itemArea, $itemId, $itemPrice ];

$itemArea = "0123"; $itemId = "0000008888"; $itemPrice = "50";
push @{ $thirdList{$itemArea} }, [ $itemArea, $itemId, $itemPrice ];

$itemArea = "0123"; $itemId = "0000009999"; $itemPrice = "51";
push @{ $thirdList{$itemArea} }, [ $itemArea, $itemId, $itemPrice ];

hardCodedPrint(%thirdList);



sub hardCodedPrint {
  foreach $area ( keys %thirdList) {
    for (  $i=0; $i <= 1; $i++  )  {
      print "THIRD: ";
      print $thirdList{$area}[$i][0], " - ";
      print $thirdList{$area}[$i][1], " - ";
      print $thirdList{$area}[$i][2], "\n";
    }
  }
}

[download]
hardCodedPrint() needs help. What I need is something like for (  $i=0; $i <= $# $thirdList{$area}; $i++  )  { But no matter what kind of casts and !@#$%^&* stuff I put in there (like $# @{ $thirdList{$area} }, I get a "$# is no longer supported" type of error - or worse. Any ideas? Thanks - Dave

In reply to Perl 5.12.2 Data Structures by hennesse

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.