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