for my $draw (@seq[0..$draws-1]){