sub addAccount { while (1) { displayMenu("add"); if ($choice == 1) { my $tempInFile=getInput("PLEASE ENTER FULL PATH TO INPUT FILE > "); my $csv = Text::CSV->new(); open (CSV, "<$tempInFile") or die "COULD NOT OPEN $tempInFile ($!)\n"; while () { if ($csv->parse($_)) { my @columns = $csv->fields(); validateOptions("add","$infile",@columns); } else { my $err = $csv->error_input; print "Failed to parse line: $err"; } } close CSV; last; } elsif ($choice == 2) { manuallyEnterUser("add"," "); last; } elsif ($choice =~ /a/i) { accountMenu(); } elsif ($choice =~ /m/i) { mainMenu(); } elsif ($choice =~ /e/i) { exit(0); } else { $notice="INVALID OPTION"; next; } } }