use strict;
my @array = qw/this is a sentence/;
{
        local $, = " ";  # changes $, to " ".  Using
                         # "my" with a Perl special
                         # variable generates a compile
                         # time error.
        print @array;    # prints "this is a sentence"
}
print @array;            # prints "thisisasentence"