#!/usr/bin/perl -w

use strict;
use CGI;

my $query = new CGI;
my @params = $query->param;

foreach $param(@params) {
    $values = join '^', $query->param($param);

    # do what you want with the data here
}