push @{$HashRef->{$ItemID}}, $DataSource; #### my $obj = new Thingie; #### my $obj = Thingie->new();