#!perl -T -w

use strict;
#use wtf8;

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

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

while( ++$kappa  ){ # prefix increment
 $bool = $kappa < $mu;
 printf "%8d%s%-4d%s%d\n",$kappa,' < ',$mu, '-> ',$bool;
 last if $kappa == 3;
}
__END__
#OUTPUT
  $kappa < $mu -> boolean context
       0 < 2   -> 1
       1 < 2   -> 1
       2 < 2   -> 0
       3 < 2   -> 0