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

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.