#!/usr/local/bin/perl
#!/usr/bin/env perl
use v5.12;
use warnings;
use Carp;
use CGI;

my $q = CGI->new("name=dan&name=kogai");
my @name = $q->param('name');
say join ", " => @name;
my $name = $q->param('name');
say $name;