experimental mapreduce in Perl