$c=\99;
  print "c is $c\n";
  print "Number is $$c\n";
  $$c=1000;
  print "Now C is $$c\n";