i++; /* Increment i */ #### { no strict 'refs'; *{$caller} = &{$something}; } #### my @list = do {no warnings; qw /foo #bar baz,/};
## { no strict 'refs'; *{$caller} = &{$something}; } ##
## my @list = do {no warnings; qw /foo #bar baz,/};