Concise map-reduce in Perl

gistfile1.pl

use strict; use warnings;
use List::Util  qw(reduce);
use File::Slurp qw(read_file);

# Given a list of filenames, return a hash of each word and the number of times
# it occurs.

sub word_count {
	reduce { $a->{$b}++; $a  } {},
	map    { split(/\W+/)    }
	map    { lc read_file $_ } @_;
}