$VAR1 = bless( {
                 'at0' => [
                            '1',
                            '2',
                            '3'
                          ],
                 '.parameters' => [
                                    'at0'
                                  ],
                 '.charset' => 'ISO-8859-1',
                 '.fieldnames' => {},
                 'escape' => 1
               }, 'CGI' );

##</code><code>##

#! perl -slw
use strict;
use Data::Dumper;
use CGI;

my $q = new CGI;
my $at0ref = $q->{at0};
print $at0ref, " => @$at0ref";

__END__
P:\test>junk3 at0=1 at0=2 at0=3
ARRAY(0x195f6c4) => 1 2 3