for (my $i=0;$i<$#{$data};$i++) {
      if($data->[$i]->{Phones}) {
        print "\n$data->[$i]->{Phones}->{Manufacturer}";
        ...
      }
}