my (@array1, @array2);
open( F1, "datei1") or die $!;
open( F2, "datei2") or die $!;
while ( 1 )
{
$daten1 = <F1>; 
last if not defined $daten1;
push( @daten1, $daten1 );

$daten2 = <F2>;
push( @daten2, $daten2 );
}
close (F1) or die $!;
close(F2) or die $!;

subprogramm( \@daten1, \@daten2 );