(
  sub { print "A is less than B" },
  sub { print "A is equal to B" },
  sub { print "A is greater than B"}
)[($a <=> $b) + 1)]->();