use strict;
sub READ () { 34 }

{
  no strict 'refs';
  print &{'READ'}(), "\n";
}

{
  print &{$main::{'READ'}}(), "\n";
}

##</code><code>##

&{$main::{$folder_ace}}() |
&{$main::{$subfolder_ace}}()