foreach $field (param)
{
  foreach $value (param($field))
  {
	 if($field =~ /Data_One/)
	 {
	 	$field = "First";
	 }
	 if($field =~ /Second_Part/)
	 {
	 	$field = "Second";
	 }
	 
	 
     if($value !~ /^\s*$/)
     {	
         	$allData .= "$field\:\n$value\n\n";
     }
  }

} 
.....

<table align=\"center\" width=520>
<tr><td><pre>$allData</pre></td><tr>
</table>