Language Basics Perl

$, = ';';
print 1, 2, 3;