#!/usr/bin/perl -wT
use strict;
use CGI qw/:standard/;

my %params = 
    map { $_ => get_data( $_ ) } 
    param;

sub get_data
{
    my $name   = shift;
    my @values = param( $name );
    return @values > 1
        ? \@values
        : $values[0];
}