Help for this page

Select Code to Download

Select or download this

use List::Util qw(shuffle);
use POSIX qw(ceil);
...
                              dirty => 1);
$h->insert(@list);
print $h->extract_top;