open(HIPORT,"eq010125.txt") or die "Couldn't open file, $!";