open(FILE1, "<$file1") || die "Can't open $file1\n"; 
open(FILE2, "<$file2") || die "Can't open $file1\n"; 
open(EMFILE, "<$file3") || die "Can't open $file1\n";