use List::Util qw( reduce );