sub make_closure {
    my $x = 1;
    my $closure = sub { 
      return $x++; 
    };
    return $closure;
  }

  my $cls = make_closure();
  print &$cls;
  print &$cls;
  print &$cls;