in reply to Subroutines within if statements

Elaborating on runrig's answer, you probably meant to use:
if ($answer eq "add" || $answer eq "a") {

Same goes for your elsif.