my @genderEnding = ('ovich', 'ovna'); my @genderType = ('Male', 'Female'); my $genderSelected = 1; my $fathersName = &promptConsole("What's your father's name"); my $gender = &promptConsole("What's your gender"); for my $gen (qw{m male man boy}){ $genderSelected = 0 if(lc($gender) eq $gen); } print "Since, you are $genderType[$genderSelected], your father (middle) name is $fathersName$genderEnding[$genderSelected]\n"; sub promptConsole{ print shift, ": "; my $in = <>; $in =~ s/[\r\n\cM]+$//; return $in; }