my ($a, $b, $c, $d, $e, $f, $g, $h) = splice(@array, 0, 8);
foreach ($b, $c, $d, $e, $f, $g) {
  s/\.//g;
}