Select Code to Download

open (M, "|more") || die "Could not open more!\n";

chomp,@_=split(/::/),($e{$_[0]},$l{$_[0]})=($_[1],0)while(<>);

...
  $l{$_}--;
  print "$e{$_} has a KK of $L[$x]\n";
}

A::aaron
B::bob
C::cindy

%type test.txt | perl kk2.pl

...
bob has a KK of A
cindy has a KK of