my @data;

sub xreturn {
  @data = @_;
  push @data, [(caller)];
  goto CENTRAL_EXIT;
}

CENTRAL_EXIT:
  return @data;