use strict;
use warnings;

use Test::More tests => 1;
use Test::NoWarnings;

my $line = 'foo=a,bar=3,baz=Fizzlegrapplebaum';
my @data = split(',', $line);
foreach my $datapair (@data) {
    my ($label, $data) = split('=', $datapair);
    my $out = "label: $label; data: $data\n";
}