sub shift_bs{
    $add = shift;
    $source = shift;
    $num1=Math::BigInt->new("0x".$source);
    $num1->blsft(1);
    $num1+=$add;
    $temp = $num1->as_hex();
    $temp =~ /0x(.*)/;
    return $1;
}