open(INP, "$file") or die "Could not open file $file : $!\n";