#!/usr/bin/perl --
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;
use strict;
use warnings;
my $q = CGI->new;
my %list = $q->SWars;

...

exit 0;
sub CGI::SWars {
    my $q = shift;
    my %Vars;
    for my $key ( $q->param ){
        $Vars{ $key } = $q->param( $key );
    }
    return %Vars;
}