Thank you everybody for your replies and testing my code.

I tried it on a 333MHz Celeron (PII) processor running Active State Perl 5.6.1 and it ran fine until I stopped it at 15000. Now after reading your replies, I wonder how far it would have gone if I had let it go.

I've tried the code on a UNIX timeshare (SunOS 5.8 Generic_117350-04 sun4u sparc SUNW,Ultra-4) running Perl 5.8.0
Number of lines: 8801 Segmentation Fault

The program dumped core on the UNIX machine but not on my PCs or Macs. Can I use the core in any way to determine what the problem is?

Thank you,

Paul