@resp = qw( equal greater less );
print $resp[ $x <=> $y ];