use threads;

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


my $thread1 = thread->create('abfrage',\@array_1);
my $thread2 = $thread->create('abfrage',\@array_2);