print $number1, " is ",
    ("equal to", "greater than", "less than")[$number1 <=> $number2],
    " ", $number2, "\n";