#!/usr/bin/perl -w

use strict;
use warnings;

my $x = 3;
my $y = 0;

for(1..3){
    $y = $x;	 print "line 1 ---- x = $x -- y = $y\n";
    $y++;		print "line 2 ---- x = $x -- y = $y\n";
    $x -= $y;	print "line 3 ---- x = $x -- y = $y\n";
}