use Priority;
my $q = new Priority;
my $time = time;
$q->add($_,1) for 1..1000000;
$q->pop for 1..1000000;
print "Did a million in ",time - $time, " seconds";
__DATA__
Did a million in 32 seconds