$query = new CGI;
my @array = ();
for $var ( $query->param) { 
    push (@array, $query->b($var) );
}