my $bignum = 1000;
  for (1..1000) { $bignum *= $bignum }
  print "bignum is now $bignum\n";
  my $epsilon = 1/$bignum;
  print "epsilon is now $epsilon\n";