String Perl

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