Select Code to Download

sub scope_test{
  my @data_in = <DATA>;
...
  }
  print "$_" for @data_out;
}

sub scope_test{
  my @data_out;
...
  }
  print "$_" for @data_out;
}

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