http://www.perlmonks.org?node_id=863741


in reply to pairwise() doesn't seem to work...

You need to explicitly import pairwise like so:

use List::MoreUtils qw(pairwise);