sub printSpecial() {
      $\ = "\n";
      my @a = qw( One Two Three );

      print ("\n");
      print ("Join print statement\n");
      print ("\n");
      print join( ',', @a );

      {
        # $, The output field separator for the print operator.
        local $, = ',';
        print @a;
        print "@a";
      }
      {
        print ("\n");
        local $" = ',';
        print @a;
        print "@a";

      }
}