my @array = map { $Product[$_] - $State[$_] } 0..$#State;