Select Code to Download

#! perl -slw
use strict;
...
    ++$hits{ $_ } ;
}
printf "Collision after %d generations\n", scalar keys %hits;