#! /usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use HTML::TreeBuilder;

my $file_name = q{la.html};
my $t = HTML::TreeBuilder->new_from_file($file_name)
  or die qq{cant build tree from *$file_name*: $!};

my @trs = $t->look_down(_tag => q{tr});

my @db;
while (@trs){
  my @fields = splice(@trs, 0, 7);
  
  my %rec;
  $rec{group} = $fields[0]->as_text;
  $rec{type}  = $fields[1]->as_text;
  
  my @tds;
  @tds = $fields[2]->look_down(_tag => q{td});
  $rec{level} = $tds[1]->as_text;

  for my $field (3..5){
    @tds = $fields[$field]->look_down(_tag => q{td});
    $rec{$tds[0]->as_text}  = $tds[1]->as_text;
    $rec{$tds[2]->as_text}  = $tds[3]->as_text;
  }

  $rec{note} = $fields[6]->as_text;
  
  push @db, \%rec;
  
}
print Dumper \@db;