foreach my $datapair (@data) {
   my ($label, $data) = split('=', $datapair);
######
   die "Bad Line: $datapair" if !defined ($data);
#####
   print "label: $label; data: $data\n";
   print OUT1 "$data;";
}