Variables Perl Program

Script:
#!/usr/bin/perl

$x = 1;

($x,$y) = (1,2);

$number = 5;

$variables = "Perl Program";

print "$number \n";
print "$variables \n";

$z = $x + $y;

print "$z \n";

$word1 = "Perl";
$word2 = "Program";
$word = "$word1 $word2";

Output:

5
Perl Program
3
Perl Program