use strict;
use warnings;

my $y = 7;
my $x;

$x = $x || $y;
print "Now x = $x\n";