or download this
Reference found where even-sized list expected at ./junk.pl line 6.
Use of uninitialized value $amount in addition (+) at ./junk.pl line 2
+7.
Use of uninitialized value $total_admin_expenses in addition (+) at ./
+junk.pl line 27.
Use of uninitialized value $_[0] in reverse at ./junk.pl line 35.