Help for this page

Select Code to Download

Select or download this

sub prefer
{
...

print "$_\n"
    for sort $prefer keys %h;