#!/usr/bin/perl

use strict;
use warnings;

open my $fh, ">", "liste.csv" or die $!;

my $var1 = 'foo';
my $var2 = 'bar';

print $fh "$var1;$var2\n";