for (my $i=0; $i <= $#data -1; $i++)
# ersetzen durch:
for my $i (0..$#data-1)