In your example the input is sorted. A hash could help:

my %hash = qw (J K L M N O);
print qq{$_ => $hash{$_}\n} for sort keys %hash;
[download]