my @subset = @array[0 .. int rand(1 + @array)-1];