#!/usr/bin/perl use strict; use warnings; use CGI; use Data::Dumper; my $cgi->CGI->new(); my @is=$cgi->param('i'); my @dates=$cgi->param('date'); my %combine; @combine{@is}=@dates; print $cgi->header('text/plain'); print Dumper(\%combine);