sub cheese {
   my @cheese = qw(cheddar swiss);
   if (wantarray) { return @cheese }
   else { return $cheese[0] }
}