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;