print "Enter num1\n";
my $num1 = <STDIN>;
chomp ($num1);

print "Enter num2\n";
my $num2 = <STDIN>;
chomp($num2);

while($num2 > $num1)
{
	print "Enter num again\n";
	my $num = <STDIN>;
	chomp($num);

	$num1 = $num2;
	$num2 = $num;
}

print "Num2 is smaller than Num1\n";