#!/usr/bin/perl

sub insertVals
{
  my $str="num:".scalar(@_);

  for(my $i=1;$i<scalar(@_);$i++)
   {
     $str=$str."<p>$_";
   }
   return $str;
} 
##</code><code>##

#!/usr/bin/perl

sub insertVals
{
  return "num:".scalar(@_);
}

##</code><code>##

insertVals(['pTD','pLocation','p1','p2','p3','p4','p5','pNum','pGameNotes','pGameId'], ['dbPostDiv'] );