#!/usr/bin/perl -w

use strict;
use warnings;

my $toto = 'toto';
my $tutu = 'tutu';

my $deux = $toto, print "\n", $tutu;

print $deux