in reply to very sloooooow!

1. Make sure patient_id is indexed.
2. Page the output. If you're using MySQL you can do this with LIMIT.

In Section Seekers of Perl Wisdom