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";
[download]