open(FILE, "<", $this_file) or die "Could not open $this_file because $!\n"; #### $long{$file} = $longest_string_in_this_file; $short{$file} = $shortest_string_in_the_same_file;