{
   my %myhash;

   sub DoIt{
        my $limit=shift;
        my $i;
        # really, what you'd do here is just init the
        # as-yet uninitialized part
        foreach $i ((scalar keys %myhash)..$limit){
            $myhash{$i}=1;
        }
        $func_done = (times)[0];
        return;
   }
} # scope for %myHash