Select Code to Download

# first read and numericaly sort the lines
my @lines = sort {$a <=> $b} <>;
...
   }
   print;
}

cat data | ./script index-file > result