$ perl -E 'use strict; my @x = qw{a b c}; my $y = @x; say $y->[1]'
Can't use string ("3") as an ARRAY ref while "strict refs" in use at -e line 1.