my $s = $json_decode(...)->[0];
my @a = @{ $json_decode(...) };