#!/usr/bin/perl
# (shebang line syntax is dictated by unix shell)
use
strict;use
warnings;my
@a
=
qw
(1
  2 3);print
"@a\n"