Select Code to Download

print $_,     $_ > 90 ? 'A'
            : $_ > 80 ? 'B'
...
            : 'F'
, "\n"
  for 89,90,91, 80, 70 , 50;

my %grade_for = map { $_ => 
                      $_  > 90 ? 'A'
...
                    : $_  > 60 ? 'D'
                    : 'F'
                    } for 0..100;

  $student_name = 'f00li5h'; $student_score = 61;
  print "$student_name scored $grade_for{$student_score}!"