List::Util 

use List::Util qw(reduce);

my $result = reduce { BLOCK } @list;