my $a = ( 10, 20, 30, 40, 50 );

##</code><code>##

perl -MO=Deparse -E '$x = (10,20,30); say $x'