sub insert {
    my $hash = shift;
    #edit: werte wurden überschrieben:
    #$hash = $hash->{$_} = {} for @_;
    $hash = $hash->{$_} ||= {} for @_;
    return $hash;
}

insert(\%tmp, @names);