sub do_randomise
    {
        (my $value) = @_;
        $$value = int rand 100;
    }