sub prepare() {
my $file = $liste;
  my (@liste_1, @liste_2);
  
  tie my @array, 'Tie::File', $file or die $!;

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

  @liste_1 = @array[0..$index];
  @liste_2 = @array[$index+1..$#array];

  print "[+] Ok - list should be prepared!\n";
  
  my $thr1 = threads->create(\&abfrage, $nick, $proxy, $host, $login, @liste_1);
  $thr1 = threads->create(\&abfrage, $nick, $proxy, $host, $login, @liste_2);

}

sub abfrage() {
print @liste_1;
}