#!/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 );
	}
}