print "In binary, that is ";
              while ($x < 8) 
                  {
                      @binary[$x]=1;
                      print @binary[$x];
                      $x++; 
                  }
          die"\n\nProgram ended successfully";