#JSON
my $json = new JSON;

my $json_text = $json->decode($content);

foreach my $json_data(@{$json_text->{balArray}[0]{containerArray}[0]{entryArray}[0]}) {
print {$output_fh} "$json_data->{timestamp},";
print {$output_fh} "$json_data->{flag},\n";
}