#!/usr/local/bin/perl

#On a 3 variables appelées "scalaires". Les scalaires sont précédés du caractère $
$var1= 33;
$var2= 44;
$var3= 55;

#On affiche var1, var2 et var3
#var1 a pour valeur 33
#var2 a pour valeur 44 
#var3 a pour valeur 55  
print "$var1 $var2 $var3 \n";

#on fait la somme des trois variables ci-dessus
#Cette somme est stockée dans la variable somme
$somme= $var1 + $var2 + $var3;

# on affiche la variable somme
print "$somme \n";
 
#on fait le produit des trois variables
#le produit est stocké dans la variable produit
#L'étoile renvoie à la multiplication et le plus renvoie à l'addition
$produit= $var1*$var1 + $var2*$var2 + $var3*$var3;

# on affiche la variable produit
print "$produit \n";

#On permute les valeurs de $var1, $var2 et $var3
#$var1 vaudra ce que valait $var2, $var2 vaudra ce que valait $var3, et $var3 vaudra ce que valait $var1. 
#Pour cela, on crée une variable temporaire $tmp qui va stocker la valeur de $var1 
$temp=$var1;
$var1=$var2;
$var2=$var3;

#on affiche les variables $temp $var1 et $var2 
print "$temp $var1 $var2 \n";