sub coor		
{
	my ($a,$b);	
		
	$f=$a+109;
	$g=$b+5;
	
	@in=($f,$g);	
}	

######################################################
#MAIN PROGRAM		
			
&coor("1","2");
@y1_opp=&coor;
print "@y1_opp\n";