print $a, ' is ', ('smaller', 'equal', 'greater')[1+($a<=>$b)], ' than ', $b;