#!/usr/bin/perl
use strict;
use warnings;

my @array = (qw/A B C D E F/);


print "array has ".@array," elements\n"; ## array has 6 elements
# Note the above '.' puts @array into a scalar context

print "@array\n";     ## 'A B C D E F'
print "",@array,"\n"; ## 'ABCDEF'

#note: added null string"" added so that print is not
# confused about missing optional FileHandle. Note comma ','
# used instead of '.' as joining character.