my $heap = Heap->new;

##</code><code>##

$heap->insert( $max);
$heap->extract_min if $heap->size > $k;

##</code><code>##

map $heap->extract_min, 1 .. $heap->size;