splice(@array, 0, 8);

##</code><code>##

@array[0..8];

##</code><code>##

foreach $item (@array[1..6]) {
   $item =~ s/\.//g;
}