my $answer = int(rand($max)) + 1;