], }; dd $object; $_->{'counter-data'} = uncsv($_->{'counter-data'}) for @{$object->{counters}}; dd $object; $_->{'counter-data'} = synch_that_time( $_->{'counter-data'} ) for @{$object->{counters}}; dd $object; sub uncsv { ## TODO Text::CSV maybe [ split ',', $_[0] ]; } __END__