#open text file 1 open (FILE1, $filename1) or die "Unable to open $filename1 because $!\n";