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

##</code><code>##

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

##</code><code>##

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