use strict;
use warnings;

use MCE::Hobo;
use MCE::Shared;
use Time::HiRes qw[ time ];

my $start = time;
my $fh    = MCE::Shared->handle( "<:raw", $ARGV[ 0 ] );
my $seen  = MCE::Shared->array;

sub task {
   my @_seen;
   while( read( $fh, my $buf, 16384 * 4 ) ) {
      # the length check may be omitted with MCE::Shared 1.002+
      last unless length($buf);
      ++$_seen[$_] for unpack 'C*', $buf;
   }
   for ( 0 .. 255 ) {
      $seen->incrby($_, $_seen[$_]) if $_seen[$_];
   }
}

MCE::Hobo->create('task') for 1 .. 8;

# do other stuff if desired

$_->join for MCE::Hobo->list;

close $fh;

printf "Took %f secs\n", time() - $start;

# export and destroy the shared array into a local non-shared array

$seen = $seen->destroy;

# for ( 0 .. 255 ) {
#    printf "%c : %u\n", $_, $seen->[$_] if $seen->[$_];
# }