my $anz = @r;
print "Arraygröße: ".$#r." bzw. ".$anz."\nDatensätze: ".$i;