sub abfrage() {
for(my $i=0;$i<=5000;$i++) {  
print @array_1[$i]; #  === ACHTUNG, Logik Problem ===
}
}