sub foo {
    my @names = @_;
    ... ;
    return @values if wantarray;
    return $values[0];
  }