$grade = <STDIN>;

%scores=( "$grades<=90" => "A", 
"$grade<=80" => "B", 
"$grade<=70" => "C", 
"$grade<=80" => "D", 
"$grade>=50" => "F");

foreach $grade (%scores) {
if ( $grade != key ) {