in reply to map in void context

map { $sum += $_ } qw(1 5 12 18 24 40);

[download]

In Section Perl Poetry