#!/usr/bin/perl -w
use strict;
my $val = "19";
mysub($val);
sub mysub {
	my($ans)=@_;
	do {
	   $ans += 1;
	   print "ANS = $ans\n";
	}while($ans < "50");
}
exit(0);