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

my %done;
my @pairs;
while (@arr) {
    my $pair = join(' - ', splice(@arr, 0, 2));
    next if $done{$pair}++;
    push @pairs, $pair;
}

print "$_\n" for @pairs;