shift @filenames while ( @filenames && ! -e $filenames[0] );
die "No names matched" unless ( @filenames );

##</code><code>##

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