where are global vars?

global.pl

use feature qw(say);

package Some;

no strict;                      # to access to ${::,};
use warnings;


local $, = ',';                 # ${Some::,} is ',' now?
say ${::,} || 'nothing';        # 'nothing'
say ${main::,} || 'nothing';    # 'nothing'
say ${Some::,} || 'nothing';    # 'nothing'
                                # where is $,?

{
    my @num = qw(0 1 2 3 4 5 6 7 8 9);
    say @num;                   # '0,1,2,3,4,5,6,7,8,9' it works!
}

say '---';

use English;

say $OUTPUT_FIELD_SEPARATOR;    # ','
say $OFS;                       # ','
say $,;                         # ','