use List::Util qw[ shuffle ];

my @rands = ( shuffle 1 .. 120 )[ 0 .. 99 ];