Help for this page

Select Code to Download

Select or download this

my @tosort;
while( <DATA> ) {
...
  print for sort splice @tosort;
  print
}