package Book::World2;

use Symbol ();

for (1, 2) {
    do_work("now");
}

sub do_work {
    my($var) = @_;
  
    return undef unless $var;
  
    my $sym  = Symbol::gensym();
    my $qvar = Symbol::qualify($var);
  
    my $retval = {
        sym => $sym,
        var => $qvar,
    };
  
    return $retval;
}
1;