my @categories = $decoded_json[0];
            foreach my $category (@categories){
                foreach my $record (@$category) {
                    print Dumper $record;
                    print "Translation for $record->[0] is $record->[1]\n";
               }
           }