JSON is array of stuff  [ ... ] or hash (aka object) of stuff  { ... }

So dereference the arrays of objects you have (aohash)

push @fields, @{ $decoded }; ######<<<<<<<<
[download]

references quick reference

Later you make  $hashof{Purple} = \@stuff;