use List::MoreUtils qw(pairwise);