my $x;
my @array;
@array = qw( a b c);

($x) =  qw( a b c);
print $x  . "\n";

$x =  qw( a b c);
print $x  . "\n";


##</code><code>##

C:\dev\learningPerl>perl ex3c.pl
a
c