foreach my $row (@$list) {
      print "$#{$row} <br>";
      .....
    }

##</code><code>##


 my $dref = $@list;
 my $num = "$#{list}"

##</code><code>##

Can't use string ("8") as an ARRAY ref while "strict refs" in use at /usr/lib/perl5/5.6.1/whiteware.pm line 109.