@file_lines = grep { if (/$player_drafted/i) {
                       print "Removing $_ from list.\n";
                       0;
                     } else { 1 }
                   } @file_lines;