#!/usr/bin/perl

use strict;
use warnings;
use CGI;

# create new CGI object
my $q = CGI->new();

# clean assignment of CGI parameters
my %param = $q->Vars();

# $param{list1} contains selected fields separated
# by null character \0
my @days_selected = split /\0/, $param{list1};