... my $cds = table caption ('CD Collection for user ' . $username), Tr (th ([qw(Remove? Artist Album CD_vote ArtistCD_vote)])), map { Tr ( td ([$r_user_collection->{$_}{'cd_artist'}]), td ([$r_user_collection->{$_}{'cd_title'}]), ), } keys %{ $r_user_collection }; $MAIN_CONTENT .= "
" . $cds . "
"; ...