sub { 
    my (undef, $x, $y) = @_;
    push @coords, $x, $y;
}