#!/usr/bin/perl
use strict;
use warnings;
my $x = 10;
my $y = 0;
while ($x > 3 || $y < 2){
	print "X is $x, Y is $y\n";
	$x--;
	$y++;
}