use strict; 
use warnings; 
use 5.012;

my @something = ('a', 'b', 'c');
my $x = @something;
my($y) = @something;

say $x;
say $y;


--output:--
3
a


##</code><code>##


my @something = ('a', 'b', 'c');
my $d;
my $e;
my $f;

($d, $e, $f) = @something;
say $d;
say $e;
say $f;

--output:--
a
b
c


##</code><code>##

($d, $e) = @something;
say $d;
say $e;

--output:--
a
b


##</code><code>##

($d) = @something;
say $d;

--output:--
a


##</code><code>##

$d = @something;
say $d;

--output:--
3


##</code><code>##

my($s, $t, $u) = @something;
say $s;
say $t;
say $u;

--output:--
a
b
c