When I use the strictures:

use warnings;
use strict;
[download]

I get this type of message:

Use of uninitialized value in concatenation (.) or string
[download]

because $_ has not been assigned a value. Did you mean?

     $str=$str."<p>$i";
[download]

Update: Or perhaps you wanted something like this:

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;
}
[download]

prints:

str = num:8<p>pTD<p>pLocation<p>p1<p>p2<p>p3<p>p4<p>pGameId<p>dbPostDi
+v
[download]