#!/usr/bin/perl
print "Enter the character\n";
$grade = <STDIN>;
chomp($grade);
%scores=( 
	  90 => "A",
	  80 => "B",
	  70 => "C",
	  60 => "D",
	  50 => "F"
	);
	
	if($grade >= 90)
	{
	print $scores{90};
	}
	if($grade < 90 && $grade >= 80 )
	{
		print $scores{80};
	}
	elsif($grade < 80 &&  $grade >= 70 )
	{print "hai";
		print $scores{70};
	}
	elsif($grade < 70 && $grade >= 60 )
	{
		print $scores{60};
	}
	elsif($grade < 60 && $grade >= 50 )
	{
		print $scores{50};
	}