#!/usr/bin/perl

use strict;
use warnings;


my $number = "100";
my @data;

push @data,
            [
              '1234565',
              "Prototype",
              '"Number in address is '.$number.'. Please, Please check your records."',
             ];


my $csv = Text::CSV->new ( { binary => 1, eol => "\n",  quote_char => '', } )
	or die "Cannot use CSV: ".Text::CSV->error_diag ();

	
 open my $fh, >, "myfile.csv" or die "Unable to create file: $!";

      $csv->print($fh, $_) for @{ $data };

 close $fh;