sub coor {
    my ($c, $d) = @_;
    return ( $c + 109, $d + 5 );
}

my @y1_opp = coor( 1, 5);
print "@y1_opp\n";