foreach $filename(@latest) { if (-f $filename) { print ""; open FILE, "$filename" or die "Cannot open:$!\n"; while() { #process the file } close FILE; }