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

is much better written:

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