my $x = 1;

print "[$_]" for
	do{ unless( $x ){ 5 } },
	do{ unless( 1  ){ 6 } },
	;

##</code><code>##

[1]
[]