sub test {
  my $ref = shift;
  $$ref .= shift; # concatenate, but do efficiently at C level, working with preallocated space
}