Linux puskom-ProLiant-DL385-Gen10 5.4.0-150-generic #167~18.04.1-Ubuntu SMP Wed May 24 00:51:42 UTC 2023 x86_64

/usr/share/doc/liblist-moreutils-perl/examples/

//usr/share/doc/liblist-moreutils-perl/examples/57499.pl

#!/usr/bin/perl use strict; use warnings; use List::MoreUtils qw(pairwise); my @left = (1..100); my @right = (101..200); pairwise { $a+ $b} @left, @right while 1;