{
    vec(my $str, 2, 1) = 1;
    vec($str, 5, 1) = 1;
    vec($str, 8, 1) = 1;
    sub mytest {
        my $foo = @_ ? shift : $_; # was 'shift || $_'
        $foo <<= 1;
        $str & $foo == $str;
    }
}