sub scope_test{
  my @data_in = <DATA>;
  my @data_out;
  for (0..$#data_in){
    call_back(\@data_out, $data_in[$_]);
  }
  print "$_" for @data_out;
}