$ ls -ltr
-rw-------   1 pelagic  dba      4294967296 Mar 16 13:50 foo
-rw-------   1 pelagic  dba         4096 Mar 16 13:52 bar

##</code><code>##

use strict;
my @files = qw/foo bar/;
foreach my $file (@files) {
        if (-e "$file") {
                print $file, " found\n";
        }
        else {
                print $file, " not found\n";
        }
}

##</code><code>##

foo not found
bar found