my $value = "morning,afternoon,night";
my @tmp = split /,/, $value;
my $list_ref = \@tmp;