my $num = 22     # 0b00010110
print $num << 2; #   0b01011000