##
First:
Oregon
Neveda
Second:
California
Texas
Colorado
####
####
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";
}
}
}
.....
$allData