sub get_score {
   my ($score) = @_;
   return 'A' if $score >= 90;
   return 'B' if $score >= 80;
   return 'C' if $score >= 70;
   return 'D' if $score >= 60;
   return 'F';
}