August 1999 Perl Hardware Store Slide #34

         { my %cache;
           sub compare_dates {
             ($cache{$a} ||= to_number($a)) <=>
             ($cache{$b} ||= to_number($b))
           }
         }


Next Copyright © 1998 M-J. Dominus