DB<10> $str = 'hi';

  DB<11> $sub = sub {$str}

  DB<12> x &$sub
0  'hi'

  DB<13> $str = 'hello';

  DB<14> x &$sub
0  'hello'