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