#!/usr/bin/perl

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

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