our %arx_data = ();


Need code to build HOH here...

Something like this.

        if ( $data[$class_pos] eq "cmdb_ci_appl" ) {
            my @ci_record = { description => $data[$ci_pos], name =>  $data[$name_pos] };
            push @{arx_data{ $data[$application_pos] }}, @ci_record;
            print Dumper( %arx_data ) ;
        }

        if ( $data[$application_pos] ne "" && $data[$ip_address_pos] ne "" ) {
            my @member = { description => $data[$ci_pos], name =>  $data[$name_pos] };
            $arx_data{ $data[$application_pos] }{ 'members' } = $data[$ip_address_pos];
            print Dumper( %arx_data ) ;