>perl -wMstrict -MData::Dumper -le
"my @array_names = qw(foo baz);
 for my $array_name (@array_names) {
   no strict 'refs';
   @$array_name = ( reverse split '', $array_name );
   }
 print Data::Dumper->Dump([\@::foo, \@::baz], [qw(*foo *baz)]);
"
Name "main::foo" used only once: possible typo at -e line 1.
Name "main::baz" used only once: possible typo at -e line 1.
@foo = (
         'o',
         'o',
         'f'
       );
@baz = (
         'z',
         'a',
         'b'
       );

##</code><code>##

>perl -wMstrict -MData::Dumper -le
"my @key_names = qw(foo baz);
 my %hash;
 for my $key_name (@key_names) {
   $hash{$key_name} = [ reverse split '', $key_name ];
   }
 print Data::Dumper->Dump([$hash{$_}], [qq{hash{$_}}])
   for @key_names;
"
$hash{foo} = [
               'o',
               'o',
               'f'
             ];

$hash{baz} = [
               'z',
               'a',
               'b'
             ];