sub flexible {
....
   if (wantarray) {
      return @arr;
   } else {
      return $scal;
   }
}