#/usr/bin/perl
use MeSH::KOL;
my $kol_q = new MeSH::KOL;
$kol_q->build_KOL;
my (%kols) = $kol_q->get_all_KOLS;

foreach my $auth_id (keys %kols) {
  print "$auth_id = $kols{$auth_id}\n";
} # end-foreach