while(<MYFILE>) {
  if (m/^$newfriend$/) {
    print "You are already on the list!\n";
    exit;
  }
  push @friends, $_;
}
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.