$ perl -E 'use strict; my @x = qw{a b c}; my $y = \@x; say $y->[1]'
b