@{$var1->{produkte}} = grep { keys(%$_)>0 } @{$var1->{produkte}};