sub test {
  return LIST(@dummy);
}

sub LIST{
  carp ("wrong context") unless wantarray;
  return @_;
}