sub f {
   my $coercion_occurred = 1;  # ...
   my $coerced_value = undef;  # ...

   if ($coercion_occurred) {
       return $coerced_value;
   } else {
       return ();
   }
}

my $coercion_occurred = ($coerced_value) = f();