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

sub call_back{
  my ($data_out, $element) = @_;
  push @$data_out, $element;
}