{
my $returned_data = [];
my $callback = sub { push @{ $returned_data }, $_[0] };
}
something_wanting_callback( $callback );