#!/usr/bin/perl

use strict;
#use JSON;

my $alex = "alex";
my $alexAge = "35";
my $tristan = "tristan";
my $tristanAge = "5";
my $krista_bell = "kristabell";
my $krista_bellAge = "2";

my %newHash = ("$alex" => "$alexAge", "$tristan" => "$tristanAge", "$krista_bell" => "$krista_bellAge");

my @array = ('test_0_0', 'test_0_1', 'test_0_2');
my $arrayRef = \@array;

printf("\narray = @array, ArrayRef = $arrayRef, de-referenced arrayRef: @{$arrayRef}, de-referenced arrayRef2: @$arrayRef\n\n");


my @multiArray = (
        ['value_on_0_0', 'value_on_0_1', 'value_on_0_2'],
        ['value_on_1_0', 'value_on_1_1', 'value_on_1_2'],
        ['value_on_2_0', 'value_on_2_1', 'value_on_2_2']
);

my $multiArrayRef = \@multiArray;

printf("\nmultiArray = @multiArray, MultiArrayRef = $multiArrayRef, de-referenced multiArrayRef: @{$multiArrayRef}, de-referenced multiArrayRef2: @$multiArrayRef\n\n");

printf("\n\n");

my $i = 0;
my $c0 = 0;
my $c1 = 1;
my $c2 = 2;
foreach my $x (@multiArray)
{
        printf("\n\nX Ref: $x,\nX De-Ref: @$x,\nRow[$i] Column[$c0]: $x->[0], Row[$i] Column[$c1]: $x->[1], Row[$i] Column[$c2]: $x->[2]");
        printf("\nVariations on first value on row[$i]: x[0] = $x->[0] OR x[0] = @$x[0] OR x[0] = ${$x}[0]");
        my %varbind = (
        ("row" . "$i" . "c" . "$c0") => @$x[0],
        ("row" . "$i" . "c" . "$c1") => @$x[1],
        ("row" . "$i" . "c" . "$c2") => @$x[2]
        
        #("row" . "$i" . "c" . "$c0")  => $x->[0],
        #("row" . "$i" . "c" . "$c1") => $x->[1],
        #("row" . "$i" . "c" . "$c2") => $x->[2]
        );
        printf("\n\n Value of current varbind: ");
        print %varbind;
        push(@{$newHash{"varbinds"}}, {%varbind});
        $i++;
}

printf("\n\nNext line will be printout of newhash\n");
print %newHash;
printf("\n\n\n");

#printf("\nto_json(%newHash)");