#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump;
use Text::CSV;

my $object = {
    'instance-name' => 'aggr_32_01',
    'object-id'     => '35441',
    'counters'      => [