my $t;
sub tuple { $t++ => 12 }
my $bool = 0;
my %h = (tuple()) x !! $bool;

##</code><code>##

...
my %h = $bool ? (tuple()) : ();