use List::MoreUtils qw(zip);