You don't have to check for existence. You can just use an undefined value as an arrayref and it will autovivify:

    foreach my $ItemID (@Data){ 
        push @{$$HashRef{$ItemID}}, $DataSource;
# The usual preferred notation is
#       push @{$HashRef->{$ItemID}}, $DataSource;
    }
[download]