sub coor {
    my $c = shift; # get 1st argument
    my $d = shift; # get 2nd argument
    return ( $c + 109, $d + 5 );
  }