$array_ref = [1 .. 10000];
for(@$array_ref) {
    print;
}