OK, to expand on this a little - and I hope you can bear with me on this as I'm trying to get my head round this still.

I now want to expand on this to include items not returned by the fetch from the database, e.g. to include a record count as the first item on each line of the table

I've worked out (after some head scratching) that I can use the following:

print $html_page->table(
    $html_page->Tr(
        [ map {$html_page->td($record_count++).$html_page->td($_)} @{$
+sth->fetchall_arrayref()} ]
    )
);
[download]

which works fine - but I was wondering if there is a more efficient way of doing this?