label1=data1,label2=data2, ...

##</code><code>##

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

##</code><code>##

Use of uninitialized value $data in concatenation (.) or string at ./test.pl line 124, <IN4> chunk 2147.
Use of uninitialized value $data in concatenation (.) or string at ./test.pl line 125, <IN4> chunk 2147.