There's no need for you to be using & to call subroutines. You should only use that syntax if you know what it does.

Further, you need to be using strict and warnings. Turning those pragmata on would have given you lots of information about why your code isn't working. You're passing an array to total(), but only shifting a single scalar ($all_info) out of it. You're then trying to split $total on spaces, but elements of the array are supposed to be numerical. This doesn't make much sense. I reccomend seeing the following before going any further.

perlsub strict warnings