sub scope_test{
  my @data_out;
  call_back(\@data_out, $_) while (<DATA>);
  print "$_" for @data_out;
}