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