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

##</code><code>##

my $xda = int rand $total;