#!/usr/bin/perl
# 871571

use strict;
use warnings;

my $num1 = 4;
my $num2 = 4;

my ($return1, $return2) = compare_num1_LT_num2($num1, $num2);

print "\tBACK IN MAIN:  \n";

{
no warnings ("uninitialized");
if ($return1 eq 'NoWay') {
	print "\t $num1 is GT or EQUAL to $num2\n";
} else {
	print "\$return1: $return1 and \$return2: $return2\n\n";
}
}

print "Done\n\n";


sub compare_num1_LT_num2 {
  	my ($first, $second) = @_;
	print "In sub compare... $first, $second\n";
	if ( $first >= $second ) {
		return ('NoWay');
	} else {
		return ( $first, $second );
	}
}

##</code><code>##

In sub compare... 4, 4
        BACK IN MAIN:
         4 is GT or EQUAL to 4
Done

##</code><code>##

In sub compare... 3, 4
        BACK IN MAIN:
$return1: 3 and $return2: 4

Done