use List::Util qw/sum/; say for map_pairs \&sum, 1..10;