my @a = keys %env;
my @b = values %env;
my @c = ( "equal", "a > b", "b > a" );
print ($c[@a<=>@b]),$/;