#!/usr/bin/perl
use strict;
use warnings;

my $x;
$x = $x ? $x+1 : 1;

print $x;