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..";
}
1;