Help for this page

Select Code to Download

Select or download this

while ((my $this = shift @sorted) and @sorted)
...