my $name1 = lc ask_question("Enter a male name: ");