#!/usr/bin/perluse strict;use warnings;my $csv = "one, two, three, four, five, six";my @list = split ', ' , $csv;print "@list";