Select Code to Download

#!/usr/bin/perl
use strict;
...

}

my @chunk = splice(@array,0,8);
s/\.//g foreach (@smallchunk);

s/\.//g foreach ( splice(@array,0,8) );