Figured it out, hash was the way to approach this. But simplistically, all I needed to do was:

my %hash = %{ $data };

while (my ($key, $value) = each %hash) {
    print "$key : $value \n";
[download]

Instant first level report out