sub a {
   my $xcode= sub { print "Hidden!\n"; };
   $xcode->();

}