How big is %graph? Are you sure that it's not just taking a long time to complete?

You could try adding a print statement to display $n1 in the first loop, and that should show you what's happening :)