title: Perl printing rows and columns from HTML table
body: <p>Here's my <code>temp.html</code></p>
  
  <pre><code>&lt;table border="1"&gt;
  &lt;tr&gt;
  &lt;td&gt;row 1, cell 1&lt;/td&gt;
  &lt;td&gt;row 1, cell 2&lt;/td&gt;
  &lt;/tr&gt;
  &lt;tr&gt;
  &lt;td&gt;row 2, cell 1&lt;/td&gt;
  &lt;td&gt;row 2, cell 2&lt;/td&gt;
  &lt;/tr&gt;
  &lt;/table&gt;
  </code></pre>
  
  <p>I am trying to print each element in above table using below code - </p>
  
  <pre><code>#!/usr/bin/perl
  
  use strict;
  use Data::Dumper;
  use HTML::TableExtract;
  
  my $tex = HTML::TableExtract-&gt;new(keep_html=&gt;1);
  
  $tex-&gt;parse_file('./temp.html');
  my ($table) = $tex-&gt;tables;
  #print Dumper($table);
  
  my $numColumns = @{$table-&gt;rows-&gt;[0]};
  print "\n numColumns = $numColumns\n";
  my $numRows = @{$table-&gt;rows};
  print "\n numRows = $numRows\n";
  
  for my $rowIndex ( 0..$numRows-1 ) { 
      for my $columnIndex ( 0..$numColumns-1 ) { 
         print "\n row $rowIndex column $columnIndex $table-&gt;rows-&gt;[$rowIndex][$columnIndex] ";
      }   
  }
  </code></pre>
  
  <p>It prints - </p>
  
  <pre><code>row 0 column 0 HTML::TableExtract::Table=HASH(0x8e7d7f8)-&gt;rows-&gt;[0][0] 
  row 0 column 1 HTML::TableExtract::Table=HASH(0x8e7d7f8)-&gt;rows-&gt;[0][1] 
  row 1 column 0 HTML::TableExtract::Table=HASH(0x8e7d7f8)-&gt;rows-&gt;[1][0] 
  row 1 column 1 HTML::TableExtract::Table=HASH(0x8e7d7f8)-&gt;rows-&gt;[1][1]
  </code></pre>
  
  <p>If I use <code>@{$table-&gt;rows-&gt;[$rowIndex]}-&gt;[$columnIndex]</code> instead of <code>$table-&gt;rows-&gt;[$rowIndex][$columnIndex]</code> I get correct output, but with a warning. <strong>How to remove the warning?</strong></p>
  
  <pre><code>Using an array as a reference is deprecated at t.pl line 21.
  
  row 0 column 0 row 1, cell 1 
  row 0 column 1 row 1, cell 2 
  row 1 column 0 row 2, cell 1 
  row 1 column 1 row 2, cell 2
  </code></pre>