use List::Util qw(shuffle);my @c=shuffle(2..99);