Select Code to Download

label1=data1,label2=data2, ...

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

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