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