my($count)=0;
sub name() {'autoname'.$count++}

$foo{name}='bob';