in reply to How to make it simple?
my ($a, $b, $c, $d, $e, $f, $g, $h) = ($array[0], map { $_ =~ s/\.//g; + $_ } @array[1..8]);
In Section
Seekers of Perl Wisdom
in reply to How to make it simple?
my ($a, $b, $c, $d, $e, $f, $g, $h) = ($array[0], map { $_ =~ s/\.//g; + $_ } @array[1..8]);