while (@row = ...) {

        # include the rownum as part of the link
        print Tr( td( [a({-href=>"XXX".++$rownum}, "$rownum"), @row] ) );

        # Or, just the rownum with a different link
        #print Tr( td( [a({-href=>"XXX"}, ++$rownum), @row] ) );
}