Select Code to Download

call_back(\@data_out, $data_in[$_]);

...
  my ($data_out, $element) = @_;
  push @$data_out, $element;
}

call_back(\@data_out, $data_in[$_]);

...

  push @data_out, $element;
}