#! 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