in reply to Binary heap implementation.

Have a look at Heap or Heap::Binary ...

In Section Seekers of Perl Wisdom