Select Code to Download

my @FILES = grep { -f } readdir (TEMP);
foreach my $file (@FILES){
...
  next unless scalar @matches > 0;
  print join("\n", @matches); 
}

print $matches[0], "\n";