This is a great, maybe initialize the variable $total as $total=0; to avoid this:
Use of uninitialized value $total in addition (+) at test.pl line 34.