Concise map-reduce in Perl

gistfile1.pl

#!/usr/bin/env perl
use strictures;
use List::Util  "reduce";
use Path::Tiny;
use YAML;

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

my $reduced = word_count(@ARGV);
printf "%40s -> %d\n", $_, $reduced->{$_}
    for sort { $reduced->{$b} <=> $reduced->{$a} } keys %{$reduced};

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