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