for my $item (@$data) {
    next unless $item->{Phones};
      
    print "\n$item->{Phones}->{Manufacturer}";
    ...
}