Hallo!
... Muss ich da erst umständlich
<code>my @Daten = <FileNr>);</code>
und dann
<code>my $AnzahlDS = @Daten;</code>codieren?
Abgesehen davon, das ich das gar nicht so umständlich finde, könntest du noch auf
my $AnzahlDS = ( ()=<FileNr> );
verkürzen.
Oder du machst es mit Tie::File:
use Tie::File;
tie my @array, 'Tie::File', $Datei; # (statt open)
my $AnzahlDS = @array;
untie @array; # (statt close)