sub f { use vars qw(%d); local *d = shift; $d{f}='f'; }