If u wish please, try this code

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

@y1_opp=&coor("1","2");
print "@y1_opp\n";
[download]