#!/usr/bin/perl
use strict;
use warnings;

my %hoa = (names => ['joe', 'bob', 'sally']
           );

print join ", ", @{$hoa{names}};

##</code><code>##

#!/usr/bin/perl
use strict;

my $array_name = 'names';
@main::names = ('joe', 'bob', 'sally');

DISABLE_BLOCK: { # localizes disabling strict
    no strict 'refs';
    print join ", ", @{$array_name};
}