Select Code to Download

use warnings;
use strict;
...
my @arr = qw (J K L M N O);

print join (' - ', splice @arr, 0, 2), "\n" while @arr;

J - K
L - M
N - O

use warnings;
use strict;
...
    $done{$str}++;
    print "$str\n";
}