Select Code to Download

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

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