sub first (&@) {
  my $cref = shift;
  $cref->($_) and return $_ for @_;
}