#!/usr/bin/perl -w
use strict;
my $x = 3;
for(1..3){
    my $y = $x;
    $y++;
    $x -= $y;
}