shift left syntax?

[Todd Chester via perl6-users]

Hi All,

Is this the only way to shift left?
      $i = $i +< 0x01

$ p6 'my int32 $i=0x00005DAE; say $i.base(0x10); $i = $i +< 0x01; say 
$i.base(0x10);'

5DAE
BB5C


Does we have any of those fancy += ~= ways of doing it?

Many thanks,
-T