#!/usr/bin/perl 
use strict;

my $data = [
   [ qw/ a b c d /],
   [ qw/ e f g h /],
   [ qw/ i j k l /]
];
my $outfile = "/path/to/my/file.csv";
open FOUT,"> $outfile" or die "$outfile: $!";

foreach my $row (@$data){
    printf FOUT "%s\n',join(",",@$row);
}
close FOUT;