Select Code to Download

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

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