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;
}