#!/usr/bin/env perl -w

@alpha = ('a', 'b');
@num = (99, 100);

if ($alpha[0] < $alpha[1]){
    print "$alpha[0] < $alpha[1]\n";
} else {
    if ($alpha[0] > $alpha[1]){
	print "$alpha[0] > $alpha[1]\n";
    } else {
	print "$alpha[0] == $alpha[1]\n";
    }
}

if ($alpha[0] lt $alpha[1]){
    print "$alpha[0] lt $alpha[1]\n";
} else {
    if ($alpha[0] gt $alpha[1]){
	print "$alpha[0] gt $alpha[1]\n";
    } else {
	print "$alpha[0] eq $alpha[1]\n";
    }
}

if ($num[0] < $num[1]){
    print "$num[0] < $num[1]\n";
} else {
    print "$num[0] >= $num[1]\n";
}

if ($num[0] lt $num[1]){
    print "$num[0] lt $num[1]\n";
} else {
    print "$num[0] ge $num[1]\n";
}

#------------------------------------------------------------------
#!/usr/bin/env perl -w

$a = 0;
$b = 5;
$c = 10;

$whole1 = ($val1 = $a || $b || $c);
$whole2 = ($val2 = $a or $b or $c);

print "\$val1 = $val1\t\$val2 = $val2\n";
print "\$whole1 = $whole1\t\$whole2 = $whole2\n";

$whole3 = ($val3 = $c &&  $b &&  $a);
$whole4 = ($val4 = $c and $b and $a);

print "\$val3 = $val3\t\$val4 = $val4\n";
print "\$whole3 = $whole3\t\$whole4 = $whole4\n";