my $h = DoIt( $max );
sub DoIt{
        my $limit=shift;
        my $i;
        my $myhash;
        foreach $i (0..$limit){
                $myhash->{$i}=1;
        }
        $func_done = (times)[0];
        $myhash;
}