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