Um, the total() function is undefined. You never defined it. You have to define a function to use it, or else include some file in your program that defines it.

Perl has no built-in total() function (and even if it did, calling a function with a '&' in front of it forces Perl to look for a user-defined function).

You have to write the function.