se strict;
use warnings;
use 5.012;

my $x =   () = ('a', 'b', 'c');  
#scalar context on left, a list assignment on right
#Full goatse syntax:  my $x =()= ('a', 'b', 'c'); 

say $x;

--output:--
3