open(GRADES,"<<$grades") ...

##</code><code>##

open (my $grades, "<", $self->{gradefile})
  or die ....

##</code><code>##

  open ( $self->{gradefh}, "<", $self->{gradefile})