sub BITS () { 16 }

my $x = 100 <<BITS;