#!/usr/local/bin/perl
#creation de 3 variables 
$var1=33;
$var2=44;
$var3=55;
#affichage des valeurs des variables en sortie
print "la valeur de la variable \$var1 est ", $var1 ,"\n"; 
print "la valeur de la variable \$var2 est ", $var2 ,"\n";
print "la valeur de la variable \$var3 est ", $var3 ,"\n";
#creation de la variable $somme et affichage de ses différentes valeurs
$somme=$var1+$var2;
print "la variable \$somme est la somme de \$var1 et \$var2, elle vaut ", $somme, "\n";
$somme=$var1+$var3;
print "la variable \$somme est la somme de \$var1 et \$var3, elle vaut ", $somme, "\n";
$somme=$var2+$var3;
print "la variable \$somme est la somme de \$var2 et \$var3, elle vaut ", $somme, "\n";
#creation de la variable $produit et affichage de ses différentes valeurs
$produit=$var1*$var2;
print "la variable \$produit est le produit de \$var1 par \$var2, il vaut ", $produit, "\n";
$produit=$var1*$var3;
print "la variable \$produit est le produit de \$var1 par \$var3, il vaut ", $produit, "\n";
$produit=$var2*$var3;
print "la variable \$produit est le produit de \$var2 par \$var3, il vaut ", $produit, "\n";
#creation d'une variable temporaire pour permuter les valeurs des variables
$temp=$var1;
#permutation des valeurs
$var1=$var2;
$var2=$var3;
$var3=$temp;
#affichage des nouvelles valeurs
print "La variable \$var1 vaut maintenant ", $var1, "\n";
print "La variable \$var2 vaut maintenant ", $var2, "\n";
print "La variable \$var3 vaut maintenant ", $var3, "\n";
