use List::Util 'reduce';
sub add  { reduce { $a + $b } (  0, @_ ) }
sub mult { reduce { $a * $b } (  1, @_ ) }