I would probably use something like this:

my @fields;
...
foreach my $row (@data)
{
   @string = split(/ +/);
   for (0..$#string)
   {
      push @{ $fields[$_] }, $string[$_];
   }
}
...
[download]

That should get the multiline record string, process it by-line, and push the corresponding field into an AoA. What needs to be added is the processing for ZIP code since it's the last field of the last row in a record.