#!/usr/bin/perl --

use strict;
use warnings;

use YAML;
use Data::Dumper;

sub printdump {
    print Dump($_[0]),"\n\n";
    print Data::Dumper->new([$_[0]])->Indent(1)->Dump,"\n";
    print "---------- $_[0] ----------\n";
}

{
    my %ini;    
    $ini{performance}{pop1}{ip}  = q{192.168.1.1};
    $ini{performance}{pop1}{slots} = [
            {2 =>  123},
            {2 =>  345},
            {4 =>  125},
    ];
    $ini{performance}{pop2}  = {};
    $ini{performance}{pop2}{ip}  = q{192.168.1.2};
    $ini{performance}{pop2}{slots} = [
            {6 =>  503},
            {10 =>  444},
    ];
    printdump(\%ini);
}


{
    my %ini;
    $ini{performance}{pop1}=[
        q{192.168.1.1},
        {2 =>  123},
        {2 =>  345},
        {4 =>  125},
    ];
    $ini{performance}{pop2} = [
        q{192.168.1.2},
        {6 =>  503},
        {10 =>  444},
    ];
    printdump(\%ini);
}

{
    my %ini;
    $ini{performance}{pop1}=[
        q{192.168.1.1},
        [2 =>  123],
        [2 =>  345],
        [4 =>  125],
    ];
    $ini{performance}{pop2} = [
        q{192.168.1.2},
        [6 =>  503],
        [10 =>  444],
    ];
    printdump(\%ini);    
}


{
    my %ini;
    $ini{performance}{pop1} = [qw[
        192.168.1.1
        2    123
        2    345
        4    125
    ]];


    $ini{performance}{pop2} = [qw[
        192.168.1.2
        6    503
        10   444 
    ]];
    printdump(\%ini);    
}


{
    my %ini;
    $ini{pop1} = [qw[
        192.168.1.1
        2    123
        2    345
        4    125
    ]];


    $ini{pop2} = [qw[
        192.168.1.2
        6    503
        10   444 
    ]];
    printdump(\%ini);    
}
__END__
[download]