Select Code to Download

sub shuffle($$$) {
    my ($seed, $max, $input) = @_;

...

    return $result
}

get_rand(\@$$) {
    my ($list, $seed, $input) = @_;
...
}

# might print 40 10 20 60 30 50