my @pids;
while (<$file>) {
  my $pc = $_;
  if ( ping_it($pc) ) {
    push @pids, async{ ($data_ref) = process_pc($pc,$data_ref) };
    cede;
  }
  else {
    next;
  }
}
 $_->join for @pids;

#data profit?