sub InThaiHCons { #Thai high-class consonants
    return join "\n",
'0E02', #KHO KHAI
'0E03', #KHO KHUAT
'0E09', #CHO CHING
'0E10', #THO THAN
'0E16', #THO THUNG
'0E1C', #PHO PHUNG
'0E1D', #FO FA
'0E28', #SO SALA
'0E29', #SO RUSI
'0E2A', #SO SUA
'0E2B', #HO HIP
}

##</code><code>##

sub InThaiLCons { #Thai low-class consonants
    return <<'END';
0E04 0E07
0E0A 0E0D
0E11 0E13
0E17 0E19
0E1E 0E27
0E2C
0E2E
END
}

##</code><code>##


my @characters = list('InThaiHCons');

#OR PERHAPS

my @characters = MyModule::list('InThaiHCons');  #IF FUNCTION IS NOT EXPORTED

print @characters; #[The site would not print the UTF-8 characters here--see below the code box.]

#Codepoints, e.g. '0E01' instead of actual characters would also be acceptable, as it should be trivial to convert them.