$ perl -E 'my $name_ref = [qw{a b c}]; say for @$name_ref' a b c