c:\@Work\Perl\monks>perl -wMstrict -le
"no strict 'refs';
 ;;
 our @array = qw(One Two Three);
 ;;
 my $soft_ref = 'array';
 my $hard_ref = \@array;
 ;;
 print @{ array }, '*', @{ $soft_ref }, '*', @{ $hard_ref };
 print qq/@{ array }-@{ $soft_ref }-@{ $hard_ref }/;
 ;;
 print qq/@{[ something_returning_a_list() ]}/;
 ;;
 sub something_returning_a_list { return qw(Nine Eight Seven); }
"
OneTwoThree*OneTwoThree*OneTwoThree
One Two Three-One Two Three-One Two Three
Nine Eight Seven

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my ($x, $y, $z) = qw(Fie Foe Fum);
 my @ra = qw(foo bar baz);
 ;;
 my $s = $x . $y . $y . @ra;
 print $s;
"
FieFoeFoe3