foreach (0 .. $#file) {
        print FLE $file [$_], $/ if exists $file [$_]
    }