global perl variable $,

perl_global1.pl

#!/usr/bin/perl -w

$\ = "\n";
$, = "\t";

print "1. foo\tyou\tme\tperl";
print "2. foo","you","me","perl";

foo();

sub foo {

        local $, = " ";
        #I am making record separator with a space
        #print ""
        print "3. foo","you","me","perl";

}