use Data::Dumper;

my @foo = qw/a b c/;

my @bar = $foo[3];
print Dumper \@bar;

@bar = ( @foo )[3];
print Dumper \@bar;