use strict;
use CGI qw(param);
use Data::Dumper;

my @list = param('list');
print Dumper \@list;
[download]

./foo.pl 'list=foo&list=bar&list=baz&list=qux'

$VAR1 = [
          'foo',
          'bar',
          'baz',
          'qux'
        ];
[download]