my $result = $decoded_json->{def}[0]{tr}[0]{text};

##</code><code>##

my $syn_array = $decoded_json->{def}[0]{tr}[0]{syn};
for my $rSyn (@$syn_array) {
   print "$rSyn->{text}, $rSyn->{pos}, $rSyn->{gen}\n";
}

##</code><code>##

volta, noun, f
momento, noun, m
Time, noun, m