I see the problem now. Look here:

# My Set Method
sub set_hshAgg {
    my $self = shift;
    my %hshAgg = shift;        <-------- use of %
    $self->{hshAgg} = %hshAgg;
}

# Your Set Method
sub set_hshAgg {
    my $self = shift;
    my $hshAgg = shift;        <-------- use of $
    $self->{hshAgg} = %hshAgg;
}
[download]

Thanks for your reply :)

-P0w3rK!d