The first suggestion I have is that you make friendoffriend.pl into a module and call it as a subroutine rather than starting one million new copies of perl. That would probably save about half of your runtime.