print 0+ @data;

##</code><code>##

print join "\n", map $_->as_HTML, @data;

##</code><code>##

for my $datum (@data) {
    print $datum->as_HTML, "\n";
}