#  Delete (something) from the input stream, separate the
  #  count from the file name.

  s/$in_prefix//;
  my ( $count, $file ) = split;

##</code><code>##

  #  Decompose directory/sub-directory/file into campaign,
  #  month and file.

  my ( $campaign, $month, $fname ) = split ( '/', $file );

##</code><code>##

#  Build an array of hash references from the output from
#  the output wc -l command containing campaign, month and
#  count data.

my @files = map {