my $found = '';
foreach ( @filenames ) {
  next unless -e $_;
  $found = $_;
  last;
}