$ perl -Mstrict -MText::CSV=csv -wE 'my $num = 100; csv(in => [["1234565", "Prototype", "Number in address is $num. Please, Please check your records.", "foo bar", "baz,qux"]], out => *STDOUT)'

1234565,Prototype,"Number in address is 100. Please, Please check your records.","foo bar","baz,qux"