sub checkemail { my $email = shift; open IN, "/some/textfile.txt" or die "errormessage"; while () { chomp; return "already added" if $email eq $_; # if textfile.txt has one email address per line # and nothing else } close IN; return; }