use List::Util qw( shuffle );

sub distinct_random_int {
    my ( $num, $start, $end ) = @_;
    return if $start > $end or $num > $end - $start + 1;
    ( shuffle $start .. $end )[ 0 .. $num - 1 ];
}