{
my $returned_data = [ ];

sub my_fetch_callback { push @{ $returned_data }, $_[0] }

routine_wanting_callback( \&my_fetch_callback );

for my $datum ( @{ $returned_data } ) {
  munge_it( $datum );
}
}