#!/usr/local/bin/perl
#Liste des variables
$var1=33;
$var2=44;
$var3=55;
#On affiche la valeur des variables $var1 $var2 et $var3
print 'La variable $var1 contient la valeur ', "$var1\n";
print 'La variable $var2 contient la valeur ', "$var2\n";
print 'La variable $var3 contient la valeur ', "$var3\n\n";
#On crée une variable $somme dans laquelle on met la somme des valeurs de chaque variable : $var1 + $var2, $var1 + $var3,... 
#On affiche la valeur de $somme et des variables utilisées pour produire cette somme
$somme = $var1 + $var2;
print 'La somme de $var1 et $var2 est ', "$somme\n";
$somme = $var1 + $var3;
print 'La somme de $var1 et $var3 est ', "$somme\n";
$somme = $var2 + $var3;
print 'La somme de $var2 et $var3 est ', "$somme\n\n";
#On crée une variable $produit dans laquelle on met le produit des valeurs de chaque variable : $var1 * $var2, $var1 * $var3,... 
#On affiche la valeur de $produit et des variables utilisées pour produire ce produit
$produit = $var1 * $var2;
print 'Le produit de $var1 et $var2 est ', "$produit\n";
$produit = $var1 * $var3;
print 'Le produit de $var1 et $var3 est ', "$produit\n";
$produit = $var2 * $var3;
print 'Le produit de $var2 et $var3 est ', "$produit\n\n";
#On permute les valeurs de $var1‚ $var2 et $var3 en créant une variable temporaire $tmp
$tmp=$var1;
$var1=$var2;
$var2=$var3;
$var3=$tmp;
print "La variable \$var1 contient maintenant la valeur $var1\n";
print "La variable \$var2 contient maintenant la valeur $var2\n";
print "La variable \$var3 contient maintenant la valeur $var3\n\n";