use vars qw[ %vars $key $var];

for (($key, $var) = $cgi->Vars()) {
   $vars{$key} = $var;
}