print map { $q->Tr( $q->td($_) ) } @{$arrayref};