Select Code to Download

sub addbuddy {

#add victim to buddy list
      #open names file 
    open (FILE, "names.txt");

    $list = <FILE>;

    close(DATA);

    #checks each name 
    foreach $item (@list) {

    #remove lowercase and spaces from names
    $item =~ s/ //g;
    $item = lc ($item);

    }
     
     #check if name is in file
     if ($victim eq "$item") {

     }
     else {

      #if it does not exits add it
     open (DATA, ">names.txt");

     print DATA "$victim\n";
     Close (DATA);

     }
      #Notify the terminal
     print "A Buddy name was added..";
}