jason.pl

#!/usr/bin/env perl
use strict;
use warnings;
use JSON::XS;

my $total = [];

my @ready = grep {$_ == 1} @$total;
my @desk = ();

my $resp = {total => scalar(@$total), ready => scalar(@ready), behind_desk => scalar(@desk)};

print encode_json($resp), "\n";

output.txt

$ perlbrew exec ./jason.pl
perl-5.32.1
==========
{"ready":"0","behind_desk":"0","total":0}

perl-5.28.3
==========
{"total":0,"behind_desk":"0","ready":"0"}

perl-5.26.3
==========
{"ready":0,"total":0,"behind_desk":0}