use strict;
use warnings;

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

sub coor { return ($_[0]+109, $_[1]+5); }
[download]