my @rows = $tree->findnodes(q{  //div[ @class =~ /row/ ]   });
for my $row ( @rows ){
    my @cells = $row->findnodes(q{ //div[ @class =~ /cell/ ]   });
    for my $cell ( @cells ){
       Dance( $cell );
    }
}