1*256a93a4Safresh1use strict; use warnings; 2*256a93a4Safresh1 3*256a93a4Safresh1for my $x (1 .. 2) { 4*256a93a4Safresh1 my $y = $x + 1; 5*256a93a4Safresh1 my $x = $x - 1; 6*256a93a4Safresh1} 7