use strict;

##</code><code>##

sub build_KOL {
 my($self) = @_; # for this example
 my %results = ();
 $results{1} = "blah1";
 $results{2} = "blah2";

 #instead of this...
# $self->{KOLS} = %results;

  #store the reference to the results hash 
  #in the attribute.
  $self->{KOLS} = \%results;
} # end-sub