for (0..$#file) {
    print $file[$_];
}