#!/usr/bin/env perl -l

use strict;
use warnings;

my $x = [qw{test string}];

print $x->@*;
print "$x->@*";