defined ($_) && print FLE $_, $/ for @file;

##</code><code>##

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