#!/usr/bin/perl -w
#################################################################################
## Author:      BRIAN HUNTER
## Date:        8/10/2020
## Email:       brian@sutechy.com
#################################################################################
use strict;
my $val = "19";
mysub($val);
sub mysub {
	my ($ans) = @_ ;
	do {
	    $ans += 1;
    	    print "ANS = $ans\n";
     	}while($ans < '50' );
}
exit(0);