my $n = 0;
my $i = 0;
my $Anzahl_Elemente = @data;
while($Anzahl_Elemente = $n)
{
$socket->send(@data[$n]);
$n = $i + 1;
$n = $i;
}