$mydata = [["Item", "Category", "Price"], ["Nails", "Hardware", "5.25"], ["Shirt", "Clothing", "23.00"], ["Hammer", "Hardware", "16.25"], ["Sandwich", "Food", "5.00"], ["Pants", "Clothing", "31.00"], ["Drinks", "Food", "2.25"]];how could I get the size of ref ?print @{$data}; seems not and how could I loop ref ?thanks
print "Ordinal of \$mydata is " . scalar(@{$mydata});print "\nFirst of each:\n";foreach my $entry (@{$mydata}) { print $$entry[0] . "\n";}