#!/usr/bin/perl
use threads;


$thr = threads->new(\&sub1);

sub sub1() 
{
}

my @ReturnData = $thr->join;
print @ReturnData;

#!/usr/bin/perl 

use Tie::File;
use threads;

my $file = 'german.txt';
my (@array_1, @array_2);
tie my @array,'Tie::File',$file or die $!;

my $index = int(scalar(@array) / 2);

@array_1 = @array[0..$index];
@array_2 = @array[$index+1..$#array];

untie @array;


sub abfrage{
   my ($arref) = @_;
   for my $element(@$arref){
       print $element;
   }
}

my $thr = new Thread \&abfrage, @array_1;
my $thr = new Thread \&abfrage, @array_2;