sub ...1...
my @daten;
...
$daten[1] = 'Text 001';
$daten[2] = 'Text 002';
...