Help for this page

Select Code to Download

Select or download this

  while (my $line = readline(SORTD)) {
    my $number = substr($line, $i*2, 2);
  }