Too many loops. Try this:

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

my $i = 0;
while($i < scalar @arr){
    print "$arr[$i] - $arr[$i+1]\n"; 
    $i += 2;
}
[download]