You mean array context list context, but yes, that does give you a list that you can make into your own normal hash. Here's the sub definition:

sub Vars {
    my $q = shift;
    my %in;
    tie(%in,CGI,$q);
    return %in if wantarray;
    return \%in;
}
[download]