Your code is confusing because you are reusing the same symbol names.

I can't test because I'm on mobile now.

Please note that this

        
            my @records = $decoded_json[0];
[download]

Will create an array with just one entry, you may want try

        
            my @records = @{$decoded_json[0]};
[download]

Plus correct nesting levels.

I could help better if the dump and code was clearer...