Select Code to Download

use strict;
use File::Find;
...
my @files = grep { $temp{$_} == 1 } keys %temp;

print "@files";

use strict;
...
                 } sort keys %temp;
print "@files";