use List::MoreUtils qw( pairwise );