use strict;
use warnings;

my $y = 7;
my $x;

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