for my $one ( @{ $json->.... } )
{
...
}