($kappa,$mu) = (0,2);
print "Is $kappa lesser than $mu ?:\n"; 
printf "%8s%s%-4s%s\n",'$kappa',' < ','$mu','-> boolean context';

$bool = $kappa < $mu;
printf "%8d%s%-4d%s%2d\n",$kappa,' < ',$mu, '-> ',$bool;

while( $kappa++  ){ # postfix increment
 $bool = $kappa < $mu;
 printf "%8d%s%-4d%s%2d\n",$kappa,' < ',$mu, '-> ',$bool;
 last if $kappa == 3;
}
printf "Where is my table?\n";
__END__
#OUTPUT
Is 0 lesser than 2 ?:
  $kappa < $mu -> boolean context
       0 < 2   ->  1
Where is my table?