use warnings;
use strict;

my $str = insertVals(qw(pTD pLocation p1 p2 p3 p4 pGameId dbPostDiv));
print "str = $str\n";

sub insertVals {
    my $str = 'num:' . scalar @_;
    for (@_) { $str .= "<p>$_" }
    return $str;
}