while(<DATA>) {
        chomp;
        my @chunks = split /\:/;
        next unless @chunks > 1; # At least one key, please
        my $value = pop @chunks;
        push @{ pointer_to_element($DATA, @chunks) }, $value;
}