PerlでCSV形式データ作成・出力

#!/usr/bin/perl
use strict;

use Encode;
use Text::CSV_XS;

my @array_to_csv = (
  "Dr Dre",
  "50 Cent", 
  "Eminem",
  "Nelly",
  "Busta Rhymes"
);

my $csv = Text::CSV_XS->new();
$csv->combine(@array_to_csv);
print encode('utf-8',$csv->string()), "\n";