#!/usr/bin/perl -w
use strict;
use warnings;
my $x = 3;
my $y;
for(1..3){
    $y = $x;print "line 6 ---- x = $x -- y = $y\n";
    $y++; print "line 7 ---- x = $x -- y = $y\n";
    $x -= $y; print "line 8 ---- x = $x -- y = $y\n";
}