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