Let's fold a list.
use List::Util 'reduce'; sub total { return reduce { $a + $b } 0, @_; } [download]
In reply to Re^2: Rook question by Anonymous Monk in thread Rook question by squimby