sub addbuddy {

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

##</code><code>##

    $list = <FILE>;

##</code><code>##

    close(DATA);

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

##</code><code>##

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

##</code><code>##

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

     }
     else {

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

##</code><code>##

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

##</code><code>##

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