use warnings;
use strict;

##</code><code>##

Use of uninitialized value in concatenation (.) or string 
##</code><code>##

     $str=$str."<p>$i";

##</code><code>##

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;
} 

##</code><code>##

str = num:8<p>pTD<p>pLocation<p>p1<p>p2<p>p3<p>p4<p>pGameId<p>dbPostDiv