Increasing the Efficiency of my script using fread