my $temp = int(rand(100)+1;