my $sum = () = map { (1)x$_ } @array;