use warnings;
use strict;

my @a = qw(J K L M N O);
my %done;

for (my $i = 0; $i < @a; $i += 2){
	my $str = $a[$i] . ' ' . $a[$i+1];
	print $str, "\n";
	$done{$str} = 1;
}