for my $ob ( @{$decoded->{observations}} ) {
    for my $status ( @{$ob->{status}} ) {
      for my $kind (@{$status->{info}}){
           for $elem ( sort ( keys ( %{$kind} ) ) ) {
            $final1 .= $kind->{$elem} .",";
        }
      }
     
    }
}