#!/usr/bin/perl -w

use strict;
use warnings;

my $aref = [
          {
            'cname' => 'Smart Parking',
            'balance' => 10.12,
          },
          {
            'cname' => 'Smart Parking',
            'balance' => 10.22,
          },
          {
            'cname' => 'Smart Parking',
            'balance' => 10.32,
          },
          {
            'cname' => 'Highview Parking',
            'balance' => 20.12,
          },
          {
            'cname' => 'Highview Parking',
            'balance' => 20.22,
          },
          {
            'cname' => 'Highview Parking',
            'balance' => 20.32,
          },
                    {
            'cname' => 'Highview Parking',
            'balance' => 20.42,
          },
          {
            'cname' => 'ParkingEye',
            'balance' => 30.12,
          },
          {
            'cname' => 'ParkingEye',
            'balance' => 30.22,
          },
];

##</code><code>##

$VAR1 = [
          {
            'cname' => 'Smart Parking',
            'balance' => '30.66',
            'total' => '3',
          },
          {
            'cname' => 'Highview Parking',
            'balance' => '81.08',
            'total' => '4',
          },
          {
            'cname' => 'ParkingEye',
            'balance' => '60.34',
            'total' => '2',
          }
];