my @data = split(',', $line);
foreach my $datapair (@data) {
   my ($label, $data) = split('=', $datapair);
   print "label: $label; data: $data\n";
   print OUT1 "$data;";
}