I need a way to take the numbers in one line in my .csv file and multiply them together, and then add the products from each line together to get just one number. My .csv file looks something like:

> 
> 1,1  
> 
>  2,3  
> 
>  3,4
> 
> 
> 

I know the answer should be 19, but I'm not sure how exactly to program it in Perl. I have both numbers split into different variables by:

> 
> ($x,$y) = split (/,/, $line)
> 
> 
> 

I've already read the file in and all that, I just need help with this one part of my code.
If anyone could point me in the right direction I would really appreciate it.