### Python
import random
if a := int(random.random() * 2):
print(f'true [{a}]')
else:
print(f'false [{a}]')
### Perl
use strict;
use warnings;
if (my $a = int(rand(2))) {
print "true [$a]\n";
} else {
print "false [$a]\n";
}
# 右辺によっては「代入と比較を間違ってませんか」的な warning が出る
if (my $a = 1) {
print "true [$a]\n";
} else {
print "false [$a]\n";
}