my $count = 0;

for(1 .. 5)
{
   $count++;
   if(param("fname$count") ne "")
   {
      if(param("lname$count") ne "")
      {
         # so on
         # and so on