my $e = 10 ;
  my $sub = eval(" sub { return 2**$e } ") ;