my $xda = int rand (0 .. $total);