Select Code to Download

use strict;
use warnings;
...

print "Extract $_ = $extracts[$_] \n" for 0 .. $#extracts;

Extract 0 = 282
Extract 1 = 376
...
Extract 16 = 102
Extract 17 = 103
Extract 18 = 777