#!/usr/bin/perl -w

use strict;
use CGI;

my $query = new CGI;
my @params = grep {$_ ne 'submit'} $query->param;