use List::Util qw( reduce ); sub seq_prod { reduce { seq_prod2($a,$b) } @_ ; }