my ($a, $b, $c, $d, $e, $f, $g, $h) = ($array[0], map { $_ =~ s/\.//g; $_ } @array[1..8]);