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