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

my @foo = qw(one two three);
say @foo;
my $val = @foo;
say $val;

=head output:

onetwothree
3

=cut