Hello David92,

The main problem is this line:

@valueArray = ([$version,$totSP]);
[download]

which simply overwrites the whole array on each iteration of the innermost loop. Replace it with this:

push @valueArray, [$version, $totSP];
[download]

Also, please put

use strict;
use warnings;
[download]

at the head of your script, and declare all variables explicitly as lexicals by using my:

for my $folderId (keys %hash)
{
    for my $customer (keys %{$hash{$folderId}})
    {
        for my $version (keys %{$hash{$folderId}{$customer}})
        {
            my $totSP = $hash{$folderId}{$customer}{$version}{totSP};
            push @valueArray, [$version, $totSP];
        }
    }
}
[download]

— and note how much easier it is to read code which is indented consistently. ;-)

Hope that helps,

I think Google chart may want JSON formatted data, so do have a look at the Perl JSON module. Its simple and fast. Otherwise you will be re-inventing wheels. Before that of course, you will need your data in something like the correct format. I guess you need an array of arrays...

# untested code
use strict;
use warnings;
use Data::Dumper;
use JSON; # read up on this, it may be a great help

my $json = JSON->new->allow_nonref;
my %elohimHash; # Not sure where this comes from, but obviously it mus
+t be defined by here...
my @ValsArray;
for my $folderId (keys %elohimHash){
   for my $customer (keys %{$elohimHash{$folderId}}){
      for my $version (keys %{$elohimHash{$folderId}{$customer}}){
         my $totSP = $elohimHash{$folderId}{$customer}{$version}{totSP
+};
         push @valsArray, [$version,$totSP];
      }
   }
}
print Dumper \@ValsArray;

print "-" x 30; print "\n";

print $json->encode(\@ValsArray);
[download]

Cheers,
R.

my %elohimHash; # Not sure where this comes from, but obviously it mus
+t be defined by here...
[download]

Probably not. It appears that the hash has been populated before, since it is being read in order to populate the @valsArray array of arrays.

My problem occurs ...

What is the problem? Please read How do I post a question effectively? and I know what I mean. Why don't you?

What I'd like to get is a Pie chart ... Any ideas?

Have you searched CPAN?

I edited it a bit. The point of my question is not how to create a Pie Chart,but simply how to to push in the values in correct order, inside my Matrix / Array.

A clearer picture of the input data and desired output data would be helpful, e.g. use Data::Dumper; print Dumper(\%elohimHash); (possibly reduced to some small number of example datasets), since at the moment your post does not agree with itself ("%elohimHash{$folderId}{$customer}{$version}{points} = $totPoints;" vs. "$totSP = $elohimHash{$folderId}{$customer}{$version}{totSP};") As for the output, is @valueArray supposed to be filled per $customer, per $folderId, or across the entire input hash?

$totSP = $elohimHash{$folderId}{$customer}{$version}{totSP};
[download]

Isn't the {totSP} on the end an error? Shouldn't it be {$totSP}?

Does Perl even support a hash 4 levels deep? What is the limit on that anyway?

Does Perl even support a hash 4 levels deep? What is the limit on that anyway?

Since multilevel hashes are really just hashes holding references to other (anonymous) hashes, I don't think there is any real limit. Try e.g. the following:

#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

use Data::Dumper;

my %hash = ();
my $hashref = \%hash;

for(1..255) {
    $hashref = $hashref->{$_} = {};
}

print Dumper \%hash;
[download]

This works like a charm and as expected.

Bisecting this, I found I can go up to 4028 layers of indirection before Perl segfaults at 4029. (And 4028 produces 178 MiB of output from Data::Dumper.)

Without the print call, there's no problem running it millions deep. What you have is a torture test for the Data::Dumper.

Also try with $Data::Dumper::Indent = 0; though it still segfaults.