Entries in Life

Perlism for the day:

 sub any(&@) {
   my $sub = shift;

   for(@_) {return 1 if $sub->()};
   return undef;
}

print "blah\n" if any {$_==1} 0, 1, 2;