#!/usr/local/bin/perl
#########################################
# DESCRIPTION : opérations sur des variables [Etape 1, exercice 2]
#########################################
$var1 = 33 ;
$var2 = 44 ;
$var3 = 55 ;
print "On crée trois variables avec les valeurs suivantes :\n\$var1 = $var1\n\$var2 = $var2\n\$var3 = $var3\n";

print "Sommes des variables :\n";
my $somme = $var1 + $var2 ;
print "\$var1 + \$var2 = $var1 + $var2 = $somme\n" ;
my $somme = $var1 + $var3 ;
print "\$var1 + \$var3 = $var1 + $var3 = $somme\n" ;
my $somme = $var2 + $var3 ;
print "\$var2 + \$var3 = $var2 + $var3 =$somme\n" ;

print "Produits des variables :\n";
my $produit = $var1 * $var2 ;
print "\$var1 * \$var2 = $var1 * $var2 = $produit\n" ;
my $produit = $var1 * $var3 ;
print "\$var1 * \$var3 = $var1 * $var3 = $produit\n" ;
my $produit = $var2 * $var3 ;
print "\$var2 * \$var3 = $var2 * $var3 =$produit\n" ;

$tmp = $var1 ;
$var1 = $var2 ;
$var2 = $var3 ;
$var3 = $tmp ;
print "Après permutation les valeurs des variables sont les suivantes :\n\$var1 = $var1\n\$var2 = $var2\n\$var3 = $var3\n";