sub addKeyValue
{
   ($key, $value} = @_;
   push @{${$self->{$hash}}{$key}}, $value;
}