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