Select Code to Download

use List::MoreUtils qw( pairwise );

...
            @arr;

print map "$_\n", @pairs;

my @arr = qw( J K L M N O );

...
}

print "$_\n" for @pairs;