@bubu = ('Baum','Titel','Arnold','Pferd');
%Test = ();
foreach (@bubu)
{
    $Test{$_} = ',';
}
print %Test;