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