>perl -w -le
"my @ra = (X => Y);
 print qq{@ra};
"
X Y

>perl -wMstrict -le
"my @ra = (X => Y);
 print qq{@ra};
"
Bareword "Y" not allowed while "strict subs" in use at ...
Execution of -e aborted due to compilation errors.