diff --git a/07_Basketball/perl/basketball.pl b/07_Basketball/perl/basketball.pl
index a6f98041..ac348309 100755
--- a/07_Basketball/perl/basketball.pl
+++ b/07_Basketball/perl/basketball.pl
@@ -50,7 +50,6 @@ while ($DoPlay)
     print "\n";
     if ($ConTeam eq "dart")
     {
-        $Player = 0;
         get_your_shot();
         dartmouth_play();
     }