sub definedor
{
  use List::Util qw(first);
  first { defined } @_
}