@newrecord = ();
   # Send the record to have any blank lines removed.
   @newrecord = CleanData( $record );

   -vs- 
   $newrecord = CleanData( $record );
   
    sub CleanData {
       my( $record ) = $_[0];
       my ($cleanrecord, $line );
   
       ### Separate the record by newlines.
       @$record = split /\n/, $record;

       ### Remove empty lines if they exist.
       foreach ( @$record ) {
         chomp;
         next if /^\s+$/;
         push @$cleanrecord, $_;
     }
     $cleanrecord;
  }