範囲演算子のスカラーコンテキスト

my ($a,$b,$i,$c) = (0,0,1,0);
my @c;

for (1 .. 10) {
if($a .. $b){print "真->"}
else{print "偽->"};
$c = ($a .. $b);
@c = ($a .. $b);
print "c = $c [ $a , $b ] (" , @c , ")";
if($i == 2){
$a = 1;
}
if($i == 4){
$a = 0;
}
if($i == 6){
$b = 1;
}
if($i == 8){
$a = 1;
$b = 1;
}
if($a .. $b){print ":真\n"}
else{print ":偽\n"};
$i++;
}

出力結果

偽->c = [ 0 , 0 ] (0):偽
偽->c = [ 0 , 0 ] (0):真
真->c = 1 [ 1 , 0 ] ():真
真->c = 2 [ 1 , 0 ] ():真
真->c = 3 [ 0 , 0 ] (0):真
真->c = 4 [ 0 , 0 ] (0):真
真->c = 5E0 [ 0 , 1 ] (01):偽
偽->c = [ 0 , 1 ] (01):真
真->c = 1E0 [ 1 , 1 ] (1):真
真->c = 1E0 [ 1 , 1 ] (1):真