You should not be seeding the random number generator, especially not with a value that will statistically have more 1s than 0s. That doesn't answer your question, it's just something else you should be aware of.

% perldoc -q rand
Found in
     /home/columbia3/gclib/pkg/perl/lib/5.8.0/pod/perlfaq4.pod
     Why aren't my random numbers random?

             If you're using a version of Perl before 5.004, you
             must call "srand" once at the start of your program
             to seed the random number generator.  5.004 and
             later automatically call "srand" at the beginning.
             Don't call "srand" more than once--you make your
             numbers less random, rather than more.
[download]