#!/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};
}