($kappa,$mu) = (0,2);

printf "%s\n",'$kappa < $mu -> boolean -> value we ask perl to return';

$bool = $kappa < $mu;
my $ret_value;

if( $kappa < $mu ){   # if( $bool )
   $ret_value = sprintf "%-8s%d", '$kappa: ',$kappa;
}else{
   $ret_value = sprintf "%-8s%d", '$mu: ',$mu;
}

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

while( ++$kappa  ){
 $bool = $kappa < $mu;
 if( $kappa < $mu ){   # if( $bool )
   $ret_value = sprintf "%-8s%d", '$kappa: ',$kappa;
 }else{
   $ret_value = sprintf "%-8s%d", '$mu: ',$mu;
 }

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

 last if $kappa == 3;
}
__END__
$kappa < $mu -> boolean -> value we ask perl to return
       0 < 2    -> 1          -> $kappa: 0
       1 < 2    -> 1          -> $kappa: 1
       2 < 2    -> 0          -> $mu:    2
       3 < 2    -> 0          -> $mu:    2